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PREFACE 


The MVS/Extended Architecture System Logic Library is intended 
for people who debug or modify the MVS control program. It 
describes the logic of most MVS control program functions that 
are performed after master scheduler initialization completes. 
For detailed information about the MVS control program prior to 
this point/ refer to MVS/Extended Architecture System 
Initialization Logic . For general information about the MVS 
control program and the relationships among the components that 
make up the MVS control program, refer to the MVS/Extended 
Architecture Overview . To obtain the names of publications that 
describe some of the components not in the System Logic Library , 
refer to the section Corequisite Reading in the Master Preface 
I in MVS/Extended Architecture System Logic Library: Master Index . 


i TRADEMARKS 

The following are trademarks of International Business Machines 
Corporation. 

• DFSMS(TM) 

• Enterprise Systems Architecture/370(TM) 

• ESA/370CTM) 

• MVS/ESACTM) 

• MVS/DFPCTM) 

• MVS/SP(TM) 

• MVS/XACTM) 

• Processor Resource/Systems Manager(TM) 

• PR/SMCTM) 

• ES/3090CTM) 

• Enterprise Systems/3090(TM) 

/ • VM/XACTM) 

j • Virtual Machine/Extended Architecture(TM) 


HOW THE LIBRARY IS ORGANIZED 


SET OF BOOKS 


The System Logic Library consists of a set of books. Two of the 
books provide information that is relevant to the entire set of 
books: 

1. The MVS/Extended Architecture System Logic Library? Master 
Index contains the master preface master index for the other 
books in the set. 

2. The MVS/Extended Architecture System Logic Library: Module 
Descriptions contains module descriptions for all of the 
modules in the components documented in the System Logic 
Library and an index. 

Each of the other books (referred to as component books) in the 
set contains its own table of contents and index, and describes 
the logic of one of the components in the MVS control program. 
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Most component books contain information about one component in 
the MVS control program. However, some component books (such as 
System Logic Library: Initiator/Terminator ) contain more than 
one component if the components are closely related, frequently 
referenced at the same time, and not so large that they require 
a book of their own. 

A three or four character mnemonic is associated with each 
component book and is used in all diagram and page numbers in 
that book. For example, the mnemonic ASM is associated with the 
book MVS/Extended Architecture System Logic Library: Auxiliary 
Storage Management . All diagrams in this book are identified as 
Diagram ASM-n, and all pages as ASM-n, where n represents the 
specific diagram or page number. Whenever possible, the 
existing component acronym is used as the mnemonic for the 
component book. The Table of Book Titles in the Master Preface 
in MVS/Extended Architecture System Logic Library: Master Index 
lists the book titles, the components included in each book (if 
a book contains more than one component), the mnemonics for the 
books, and the order number for each book. 


HOW TO USE THE LIBRARY 

To help you use this library efficiently, the following topics 
cover 

• How to find information using book titles and the master 
index 

• What types of information are provided for each component 

• How to obtain further information about other books in the 
System Logic Library 


FINDING INFORMATION USING THE BOOK TITLES 

As you become familiar with the book titles, MVS component names 
and mnemonics, and the book contents, you will be able to use 
the System Logic Library as you would an encyclopedia and go 
directly to the book that you need. We recommend that you group 
the books in alphabetical order for easy reference, or, if you 
are familiar with MVS, that you group the books by related 
functions. 

The Table of Book Titles in the Master Preface in MVS/Extended 
Architecture System Logic Library: Master Index contains a list 
of book titles and mnemonics. It provides a quick reference to 
all the books, and their corresponding components, in the System 
Logic Library . 


FINDING INFORMATION USING THE MASTER INDEX 

If you are not sure which book contains the information you are 
looking for, you can locate the book and the page on which the 
information appears by using the master index in System Logic 
Library* Master Index . For the component books, the page number 
in an index entry consists of the mnemonic for the component and 
the page number; for System Logic Library? Module Descriptions # 
the page number consists of the mnemonic M M0D ff and the page 
number. 

For example: 

ASM-12 refers to MVS/Extended Architecture System Logic 

Library? Auxiliary Storage Management # page ASM-12. 

MOD-245 refers to MVS/Extended Architecture System Logic 
Library: Module Descriptions # page MOD-245. 


iv MVS/XA SLL: Sched JCL Fac 
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INFORMATION PROVIDED FOR MOST COMPONENTS 


The following information is provided for most of the components 
described in the System Logic Library . 

1. An introduction that summarizes the component's function 

2. Control block overview figures that show significant fields 
and the chaining structure of the component's control blocks 

3. Process flow figures that show control flow between the 
component's object modules 

4. Module information that describes the functional 
organization of a program. This information can be in the 
form ofs 

• Method-of-Operation diagrams and extended descriptions. 

• Automatically-generated prose. The automated module 
information is generated from the module prologue and 
the code itself. It consists of three parts: module 
description# module operation summary# and diagnostic 
aids. 

5. Module descriptions that describe the operation of the 
modules (the module descriptions are contained in System 
Logic lib rary* Mo dule Descriptions ) 

Some component books also include diagnostic techniques 
information following the Introduction. 


FURTHER INFORMATION 


For more information about the System Logic Library, including 
the order numbers of the books in the System Logic Library , see 
the Master Preface in MVS/Extended Architecture System Logic 
Libraryt Master Index. 
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SUMMARY OF AMENDMENTS 


Summary of Amendments 
for LY28-1740-1 

MVS/System Product Version 2 Release 2.3 

This major revision contains changes to support MVS/System 
Product Version 2 Release 2.3. Changes include MVS/XA support 
for MVS/Data Facility Product Version 3 Release 1.0/ which 
introduces the storage management subsystem (SMS). SMS provides 
new function for data and storage management. 

• Modifications to the Introduction section# including new and 
changed information on: 

— SJF Initialization 

- SJF Control Blocks 

— SJF Services 

— SJF Parameter List Conventions 

SJF SWA Token 
— Invoking SJF Routines 

— Requirements For Using SJF Services 

— Recovery Processing 

— SJF Return Code Conventions 

— SJF Reason Code Conventions 

— SJF Abend Code Conventions 

• New information in the Process Flow section. 

• Method of Operation diagrams for the following new modules: 

IEFSJACC IEFSJVER 
IEFSJERS 

• Changes to the following modules: 

IEFSJBLD IEFSJFND 
IEFSJCNL IEFSJHTB 
IEFSJDEF IEFSJINT 
IEFSJDEL IEFSJUPD 
IEFSJEXT IEFSJWRT 

The Preface has been updated to include the new title for the 
MVS/XA System logic Library: Master Index and the deletion of 
the index from the MVS/XA System Logic Library: Module 
Descriptions . 


Summary of Amendments 
for LY28-1740-0 

for MVS/System Product Version 2 Release 2.0 

This publication is new for MVS System Product Version 2 Release 
2.0. It contains information that was reorganized from the 
Scheduler JCL Facility section in MVS/XA System Logic Library 
Volume 12 # LY28-1250# which applies to MVS/System Product 
Version 2 Release 1.7. 

This publication contains changes to support MVS/System Product 
Version 2 Release 2.0. The changes include: 

• Information for the new module IEFSJHTB. 

• A new topic# SJF Initialization# in the Introduction. 

• Minor technical and editorial changes throughout the 
publication• 
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INTRODUCTION 


The scheduler JCL facility (SJF) is a set of routines used to 
interface with the converter, interpreter, dynamic allocation, 
storage management subsystem, the job entry subsystems (JES2 and 
JES3), printer support facility CPSF), and TSO. SJF routines 
interface with them in: 

• Referencing information in the JCL definition tables (JDTs) 
and the statement definition table (SDT). 

• Storing information in scheduler work blocks (SWBs). 

• Retrieving information from the SNBs. 

• Retrieving and updating information in other scheduler work 
area (SNA) blocks. 

The converter uses the SJF services to verify JCL verbs and 
keywords. SJF obtains this information about the verbs and 
keywords from the JDTs. The interpreter uses the SJF services 
to verify JCL verbs and keywords and to create and update the 
SNBs that will contain the keyword subparameter information. 
Dynamic allocation invokes the SJF services to verify the 
dynamic allocation text units and to store the text unit 
parameter information in the SNBs. JES uses SJF services to 
obtain output characteristics from the SNBs, and recreates the 
output SNBs in the PSF address space using SJF GET and PUT 
services. PSF uses the SJF services to retrieve output 
information from the SNBs to determine how the output is to be 
printed. The storage management subsystem invokes SJF services 
to retrieve and update information residing in SNA control 
blocks to determine if a dataset is eligible to reside on 
system-managed storage. TSO uses the SJF services to validate 
commands and operands defined in the JDTs, and obtains text 
units built by SJF in order to dynamically create a DD 
statement. 


SJF INITIALIZATION 


SJF initialization occurs during master scheduler base 
initialization (IEEVIPL) processing. Module XEFSJLOD receives 
control from IEEVIPL, and initializes SJF entry points JESSJF 
and JSSJCNL in the JESCT extension. Immediately following this, 
IEFSJLOD invokes IEFSJINT which calls IEFSJDEF (SJF define JDVT 
routine) indicating that a default JDVT be built. IEFSJINT uses 
IEFJSIMN (a message writing routine) to issue error messages. 
Upon return from IEFSJINT, IEFSJLOD initializes the mutual 
exclusivity checker entry point JESMECHK in the JESCT extension. 
See MVS/XA SPL: System Initialization Logic for more detailed 
information. 


SJF CONTROL BLOCKS 


The following text describes control blocks created and 
maintained by the scheduler JCL facility. Access to these are 
supported only via the appropriate SJF service. 
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The JCL definition tables (JDTs) define statement types* 

keywords for each statement type* and keyword subparameters. 

Each JDT contains: 

• Statement type (verb) and the keywords for each statement 
type. 

• The owner name (JDT name). 

• For each keyword* the corresponding TSO commands and 
operands supported through SJF* if any exist. 

• A text unit key for each keyword subparameter. 

• Rules for the keyword subparameters such as data type and 
length. 

• An identifier for each keyword subparameter. This identifier 
will be specified on a request for SJF to update the keyword 
subparameter. 

• SWB block ID of the SHB in which the keyword subparameter 
should be stored. 


I STATEMENT DEFINITION TABLE (SDT) 

A statement definition table (SDT) contains information about 
JCL statement types* keywords and keyword subparameters that 
reside in control blocks other than SWBs* such as the Job 
Control Table (JCT)* Step Control Table (SCT)* Step I/O Table 
(SIOT)* etc. There is currently one SDT* and it is pointed from 
the JCL definition vector table (JDVT). 


| HASH TABLES 


For performance reasons* SJF uses a hashing algorithm when 
searching the JDTs for a JCL verb* keyword* keyword 
subparameter* command or operand. The hash tables are built 
during SJF initialization and are pointed from the JDVT. 


JCL DEFINITION VECTOR TABLE (JDVT) 

A JCL definition vector table (JDVT) logically groups one or 
more JDTs. It contains a JDVT name and the names and addresses 
1 of the associated JDTs. It also contains the addresses of the 

I SDT* verb hash table* and command hash table. The JDVT is 

anchored off the job entry subsystem control table (JESCT) 

I extension. There is currently one JDT for the system and its 

I name is CNTLJDVT. 

Figure 1 on page SJF-5 shows the JDVT structure. 
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JESCT 


JESPEXT 


JESCT 

extension 




JDVT ptr 




One for 
each JDT 
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Version 
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Figure 1. JCL Definition Vector Table (JDVT) Structure 


SCHEDULER WORK BLOCKS CSWBS) 

The scheduler work block CSNB) is a SWA control block that is 
used to save JCL keyword subparameter information. A SWB is 
identified by an owner name (JDT name); control block ID, 
statement type (verb), and a statement label (the 1-8 character 
name following the // on the JCL statement). Each SWB chain 
represents a JCL statement. The SWB will contain all information 
derived from the new JCL for a particular verb and label. 

SWBs are created at the following three levels: 

• Job level: For statements within a job prior to the first 
EXEC statement, the SWBs are located off the job control 
table extension (JCTX). 

• Step level: For statements specified within a step, the SWBs 
are located off the step control table (SCT). 

• DD level: For keywords on a DD statement, the SWBs are 
located off the step input output table (SIOT). 
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Figure 2 is an example of a SMB structure created from the 
following JCL. 

//JOBX JOB 

//NV1 NEWVERBA KEYW0RD1=X,KEYW0RD2=(1,2,3) 

//NV2 NEWVERBA KEYW0RD1=Z 

//STEP1 EXEC 

//NV3 NEWVERBB KEYW0RD3=(X,Y) 

//DD1 DD KEYW0RD4=A 

// 


JCT JCTX SWB SWB 



Figure 2. Scheduler Work Block (SWB) Structure 


ADDRESSING 




ODE_OF SJF MODULES 


Most of the SJF modules have an addressing and residency mode of 
31, but SJF can handle callers in either 24 or 31-bit addressing 
mode. Input data can reside at 24 or 31 bit addresses. 


IEFSJRTE has a residency mode of 24 and provides an 
interface between 24-bit callers and IEFSJCNL. 
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SJF SERVICES 


The scheduler JCL facility (SJF) provides the following 


services, 


Delete: 

Deletes a SNB chain. 

Erase: 

Erases a keyword (or key) subparameter in a 
specified SNB chain. 

Extract: 

Extracts information from the JDT associated 
with a verb, a verb and keyword, a verb and 
key, or subparameters of a keyword and key. 

Find JDVT: 

Locates the specified JDVT. 

Find SWA: 

Locates a SNB chain or a SNA block at a 
particular level of the SWA structure. 

Get: 

Copies selected keywords from a SNB chain in 
text unit format into a storage area specified 
by the caller. The keywords obtained are those 
whose JDT flags match the qualifier flags set 
in the input parameter list. 


Initialize JDVT: Creates the system default JDVT. 


Access: Locates a particular level of the SNA control 

block structure, and retrieves/updates 
information in the SNA control blocks. 

Put: Rebuilds a SNB chain from SNB keyword data 

found in text unit format. 


Retrieve: Retrieves parameter information from a 

scheduler work block (SNB) chain associated 
with a keyword or keyword for a particular 
verb and label, and uses that information to 
build text units. 


Terminate: Frees all SJF working storage and deletes the 

recovery environment, if necessary. This SJF 
service is invoked as the SJF function. 


Update: Verifies the text units specified by the 

caller and if requested, updates the SNB chain 
with the information specified in text unit 
format. 


Verify: Provides an unauthorized interface to build 

text units for SJF defined keywords for use by 
callers such as TSO. 

Write: Locates a specific SNB and updates the data 

portion of the SNB. 


NAMING CONVENTIONS OF SJF MODULES 

Each SJF module has the following format: 

IEFSJ_ 

The letters IEF indicate that the routine is part of the 
scheduler. The letters SJ indicate that the routine is further 
classified as a scheduler JCL facility module. The last three 
characters are any meaningful string that further describe the 
module (for example - IEFSJCNL, where CNL is a shortened form of 
control). 
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I SJF PARAMETERLIST CONVENTIONS 


The first 16 bytes of all SJF input parameter lists have the 
following format« 

LENGTH MASK DESCRIPTION 


4 

1 

1 


2 

4 

4 


Parameter list identifier 
Version number 
Control flags: 

X'80' No recovery processing 

X'40' No cleanup processing 

X'20' Unauthorized caller 

Parameter list length 
Local storage pointer (returned) 

Reason code (returned; include the SJF Reason 
code mapping, IEFSJRC, to analyze) 


I SJF SWA TOKEN 


Many SJF routines require a SWA block "token" as part of their 
input. The token is a way to identify to SJF which level of the 
SNA control block structure to perform the requested service on 
(eg., JOB, STEP, DD). Use the SJF Find routine to obtain the 
token. 


I INVOKING SJF ROUTINES 

The SJF Request Macro (SJFREQ) is used to invoke SJF. For an 
Access request, the SJF Access macro (SJFACC) is used. The local 
storage pointer in the parameter list must be zero on the first 
invocation. 

Callers invoking SJF services multiple times may find it 
advantageous to utilize the multiple invocation feature of SJF. 
This allows SJF to retain its resources and recovery environment 
over multiple calls, thereby eliminating the overhead for each 
invocation. This can be accomplished by doing the following: 

1. On the first invocation specify "NO CLEANUP" in the 
parameter list. If an ESTAE environment is not desired, then 
indicate "NO RECOVERY" as well. (The default is for SJF to 
establish an ESTAE environment.) The address of SJF's 
storage area will be returned in the local storage pointer 
field in the input parameter list (see SJF Parameter List 
Conventions). 

2. On subsequent invocations, supply the local storage pointer 
returned in the parameter list, as well as specifying "NO 
CLEANUP" and "NO RECOVERY" (if a recovery environment was 
established) in the input parameter list. 

3. On the last invocation, specify a request type of 
"TERMINATE", or do NOT specify "NO CLEANUP". This will free 
any resources held by SJF, including the SJF local storage, 
and delete the ESTAE environment, if one was previously 
established. 


I REQUIREMENTS FOR USING SJF SERVICES 

The following is required to invoke SJF services: 

• With the exception of SJF Verify and Terminate requests, the 
caller must be in supervisor state and run in key 0-7. 

• If the caller's storage area is referenced by SJF, then it 
must not be fetch protected. 

• SJF services are NOT available in cross-memory mode. 
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• Use of the multiple invocation facility of SJF is limited to 
one task. This is due to the recovery processing of SJF, as 
well as obtaining access to the SJF local storage over 
multiple invocations. 

• If the caller is using SJF to access DD level control 
blocks, such as SIOTs and DD-level SWBs, then an enqueue for 
the SYSZTIOT resource MUST be issued. See MVS/XA SLL: Vol 

2. for more information. 


| RECOVERY PROCESSING 

The SJF Control Routine (IEFSJCNL) establishes a recovery 
environment for the SJF functions, if requested by the caller. 
The caller can request that a recovery environment not be 
established by specifying "NO RECOVERY" in the input parameter 
list. The default is for SJF to set up a recovery environment. 
It is desirable for SJF to establish a recovery environment to 
ensure that the resources held by SJF, including the local 
storage, are freed when an abend occurs while an SJF environment 
is outstanding. Once a recovery environment is established, it 
will remain active until the SJF environment is terminated. This 
can be accomplished by not specifying "NO CLEANUP" on the last 
SJF request, or issuing a "TERMINATE" request via the SJFREQ or 
SJFACC macros. 

A return code from SJF of decimal 20 CX f 14 f ) indicates that a 
system error has occurred, and recovery processing has been 
performed by SJF. SJF will have freed up its resources as a 
result. Thus, the caller should NOT attempt to terminate the SJF 
environment after an abend takes place. Also, because the SJF 
local storage is freed during recovery processing, the caller 
should NOT supply the local storage pointer on subsequent SJF 
invocations. SJF will zero out the local storage pointer in the 
parameter list used by the caller on the first SJF invocation. 
Thus, the caller should ensure that SJF can address this storage 
area at any time during SJF processing. 

See the module description for IEFSJCNL for more detailed 
information on SJF recovery processing. 


| SJF RETURN CODE CONVENTIONS 

The following decimal codes will be returned in register 15 for 
the indicated situations: 

0 SJF request successfully completed: in some instances, 

a non-zero reason code will be set in the input 
parameter list. 

4 SJF request not processed: a non-zero reason code 

indicative of the error is set in the input parameter 
list. 

8 Error in the input parameter list passed to SJF: Check 

the first 16 bytes of the input parameter list. 

16 SJF ESTAE could not be established. 

20 A system error occurred while an SJF environment was 

active. 

24 Error in SJF initialization. 

If the return code specified in register 15 is greater than 
decimal 16 (X'lO 1 ), then the caller should NOT attempt to 
terminate the SJF environment, or pass the local storage pointer 
obtained on previous calls, as this will cause SJF to attempt to 
access resources that no longer exist. 
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I SJF REASON CODE CONVENTIONS 

I The first 2 decimal digits of the SJF reason code corresponds to 

I the function code of the SJF function requested. 


I SJF ABEND CODE CONVENTIONS 

SJF issues abends when certain unexpected conditions are 
encountered. See the documentation in MVS/XA Message Library; 
System Codes for abend 'X'OSA'. 
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PROCESS FLOW 


Figure 3 on page SJF-12 shows the process flow for the following 
SJF modules. 

IEFSJACC 

IEFSJBLD 

IEFSJCNl 

IEFSJDEF 

IEFSJDEL 

IEFSJERS 

IEFSJEXT 

IEFSJFND 

IEFSJGET 

IEFSJHTB 

IEFSJINT 

IEFSJJDV 

IEFSJPUT 

IEFSJRET 

IEFSJRTE 

IEFSJUPD 

IEFSJVER 

IEFSJWRT 
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IEFSJFND 


Find SWB 


IEFSJGET 
<-> Get SMB 


IEFSJJDV 

> Find JDVT 

IEFSJRET 

> Retrieve 


IEFSJINT 


IEFSJDEF 


IEFSJHTB 


<-> JDVT <—|—> Define JDVT <-> Hash Table 

Initialization Build 


IEFJSIMW 


> Message 
Writer 


IEFSJJDV 
<-> Find JDVT 

V (to part 2) 

Figure 3 (Part 1 of 3). Scheduler JCL Facility Process Flow Overview 
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(from part 1) V 


<-> 


IEFSJPUT 


IEFSJMRT 

Put SMB 


Mrite SMB 

1-1 

1 


<-> 


<-> 


IEFSJUPD 


1 —> Update SMB 


IEFSJRET 



IEFSJEXT 

Retrieve 



Extract 



IEFSJUPD 


IEFSJDEL 

Update 


Delete SMB 


' 






IEFSJEXT 


-> 

Extract 






IEFSJFND 


-> 

Find SMA 






IEFSJMRT 


-> 

Mrite SMB 






IEFXB501 


-> 

Journal Mrite 
Routine 


✓ \ 

IEFSJMRT 


IEFSJBLD 

Mrite SMB 

Build SMB 

\ / 



Figure 3 (Part 2 of 3). Scheduler JCL Facility Process Flow Overview 
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(from part 2) V 


SJF 

access 

macro 

(SJFACC) 

i 


IEFSJRTE 


SJF Router 
Routine 


i 



IEFSJCNL 



IEFSJDEL 

<-> 

SJF Control 

<—| 

1—> 

Delete SMB 


Routine 





IEFSJEXT 


> Extract 


IEFSJFND 


Find SMA 


IEFSJJDV 


Find JDVT 


IEFSJWRT 


Write SWB 


IEFXB501 


Journal Write 
Routine 



IEFSJVER 


IEFSJEXT 

<-> 

Verify Text 

* > 


s / 

txiracx 


Units 


Figure 3 (Part 3 of 3). Scheduler JCL Facility Process Flow Overview 
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METHOD OF OPERATION 


This section has detailed information for every SJF module. 

These modules are in alphabetic order. This detailed 
information is broken down into four different headings. The 
headings and the topics they document ares 

Module Description, which includes: 

• Descriptive name 

• Function (of the entire module) 

• Entry point names 

• External references 

• Tables 

• Serialization 

Note: Brief SJF module descriptions appear in MVS/Extended 

Architecture System Logic Library: Module Descriptions , 
which contains module descriptions for all the MVS/Extended 
Architecture components described in the System Logic 
Library . 

Module Operation, which includes: 

• Operation, which explains how the module performs its 
function. 

• Recovery operation, which explains how the module 
performs any recovery. 

Diagnostic aids, which provide information useful for 
debugging program problems; this includes: 

• Entry point names 

• Messages 

• Abend codes 

• Wait state codes 

• Return codes for each entry point. Within each entry 
point, return codes might be further categorized by 
exit-normal and exit-error. 

• Entry register contents for each entry point 

• Exit register contents for each entry point 

Logic Diagram, which illustrates the processing of the 
module, the input it uses, the output it produces, and the 
flow of control. Many modules do not have a logic diagram 
because the processing is sufficiently explained in the 
module description, the module operation, and the diagnostic 
aids sections. Figure 4 on page SJF-16 illustrates the 
graphic symbols and format used in the logic diagrams. 
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L06ICKEY - Key to the Logic Diagrams 


STEP 01 


Callers I - " - — 
r—I This paragraph describes what this module 

I u \ does. The same text appears under the 

I_ > FUNCTION heading on the Module Description 

1 - \/ page. 

LOGICKEY 


— 

01 Numbered steps describe the 
— processing at a high level. 

A. Lettered steps describe the processing 
at a lower level. 


SPQA 

IsPQAADQE SPQAEDQeI 


SPQENEXT SPQESPQA 



TOBAASCB 


1 021 Input and output fields. 

The control block acronym or data area name 
appears above the input and output boxes* 
and the field names appear within the 
boxes. A dotted arrow means the data is 
referenced* a solid arrow means the data is 
modified. 


03 External call graphic 
— 1 passing the parameter# TROB. 



04 internal call graphic (at 
— 1 the step indicated) passing 
two parameters. 


SUBROUTN: 12 



EFMSG1, TFWAPMSG 


051 Macro instruction graphic 
— 1 with these keywords # 

parameters# and options. 


(EAERIMWT* RC0) ASCBC TOBAASCB->ASCB) 
ERRETC CVTBRET) 


06 Internal branch to the label 
— 1 and step indicated. 

>BRLABEL: 08 


J \SPQE 

7r- 

SPQENEXT 

SPQESPQA 

SPQETCB 



Figure 4. Key to the Logic Diagrams (Part 1 of 2) 
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L06ICKEY - Key to the Logic Diagrams 


STEP 


-K 

08 > 

BRLABEL 


Callers 

o 

PARAMETERS 1 -1/ 

I-.SECONDER 

TROB THISLINE r—i I-• \ 

MAXLINES ETPBOPTS I- \/ 


TTE DOILABEL 

[ttekbziI 


07] SVC graphic. 

< ~ 


SVC 


TSOTEST 


08 


Step 06 branches here* A 
program call (PC) graphic 
shows an exit. 


PC 


09 


Secondary entry point. 


This paragraph describes the function of 
this entry point. Four parameters Cto the 
left) are passed an input. 


10 


This is the beginning of an 
iterative DO group. 


A. Iterate graphic of the DO 

instruction to the specified step 
number. 


Leave graphic of the DO instruction 
to the specified step nicnber* 


11 


External return graphic* to 
the calling routine. 


10 


li 


171 


\ / 


I-'\ 

12 > 

'- \* 

SUBROUTN 


1---1 

12 

This is an internal 
subroutine. 

This paragraph describes the function 
of this subroutine. 


13 


Internal return graphic, to 
a step within this module* 


Fl 


Figure 4. Key to the Logic Diagrams (Part 2 of 2) 
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IEFSJACC - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility (SJF) Access SWA 

Routine 

FUNCTION: 

This module allows callers to locate a particular 
level of the SWA control block structural and retrieve 
or update information contained in these blocks. 

ENTRY POINT: IEFSJACC 

PURPOSE: See Function 
LINKAGE: CALL 

CALLERS: SJF control routine (IEFSJCNL) 

INPUT: 

SJF Access Parameter List (IEFSJACP) 

FIELD LENGTH/MASK DESCRIPTION 


SJAC 

96 


SJACID 

4 

identifier* 'SJAC 

SJACVERS 

I 

version number 

SJACFLAG 

1 

function flags 

SJACNREC 

x'80' 

no recovery* 

SJACNQCU 

x'40‘ 

no cleanup* 

SJACLEN 

2 

length of partn list 

SJACSTOR 

4 

local storage pointer* 

SJACREAS 

4 

reason code (returned) 

SJACTOKN 

SJACFLOS 

8 

SJF token 

SJACRQST 

1 

request type 

SJACUPO 

X'80' 

update 

SJACRET 

X'40' 

retrieve 

SJACFIND 

X'20' 

find 

SJACFUNC 

1 

flag field 

SJACSYST 

X'80 1 

system input 

SJACUNAU 

X'40' 

request is from an invoker 
whose caller is unauthorized 

SJACCNT 

X'20' 

continue processing after 
acceptable errors have 
occurred 

SJACJRNL 

X'10' 

journaling requested 

SJACREQS 

2 

number of individual requests 

SJACRPTR 

4 

pointer to request table* 
address of variable 



length storage acquired for 
positional parameters 

SJACCHID 

16 

SWB chain identification 

SJACVERB 

8 

Verb (optional if not DD) 

SJACLABL 

8 

statement label (optional) 

SJACFNP 


SJF Find parameters 

SJACFLG2 

1 


SJACNEXT X'80' 

find next SWB processing* 

SJACNJST X'40' 

JOB token supplied 

SJACJBTK X'20' 

JOB token requested 

SJACCSTK X'10' 

Current Step token requestedc)D2A 

SJACFUN1 

1 

non-master scheduler flag 
byte 

SJACJOB 

X'80' 

job level 

SJACCST 

X'40' 

current step level 

SJACST 

X'20' 

step level and procname 
and step 

SJACRSVO 

2 

reserved 

SJACSTPN 

8 

step name 

SJACPRLB 

8 

Label on the proc statement 
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IEFSJACC - NODULE DESCRIPTION (Continued) 


SJACSTMT 

SJACALT 

SJACRSV2 


4 statement number(returned) 

4 Address of alternate SWA 

Manager 
4 Reserved 


SJRQT 

SJACENTY 16 

SJACRSN 4 

SJACADDR 4 

SJACLNTH 2 

SJACKEY 2 

SJACPARM 1 

SJACRSV3 3 


request table 
request table entry 
reason code (returned) 
address of area 
length of area 
key 

parameter number 
reserved 


The input to this module also includes the SJF 
control workarea (IEFSJChW). 


OUTPUT: 

SJF Access Parameter List (IEFSJACP) 


FIELD 

LENGTH 

DESCRIPTION 

SJACREAS 

4 

Reason code of first error 

SJACRSN 

4 

Reason code for each entry 
In the request table 

SJACVERB 

8 

Verb 

SJACLABL 

8 

Label 

SJACSTMT 

4 

SJF statement number 

SJACTOKN 

8 

SJF token 

SJACSTOR 

4 

SJF local storage pointer 


The following control blocks may be updated: 

IEFASIOT - Step I/O Table 
IEFJFCBN - Job File Control Block 
IEFJFCBX - Job File Control Block Extension 
IEFSWB - Scheduler Work Block 

EXIT NORMAL: Return to caller 

EXIT ERROR: Return to caller 

EXIT ERROR: Return to caller 

ENTRY POINT: ACCRETRY 


PURPOSE: 

Performs cleanup processing when an abend 
occurs during the SJF Access routine's 
processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

IEFSJCAS - SJF Check ASIS Type Routine (included) 
IEFSJCCH - SJF Check Character Type Routine (included) 
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XEFSJACC - MODULE DESCRIPTION (Continued) 


IEFSJCBM - SJF Check Bytemask Type Routine (included) 
IEFSJCHX - SJF Check Hexadecimal Type Routine (included) 
IEFSJCIN - SJF Check Integer Type Routine (included) 
IEFSJCBL - SJF Check Boolean Type Routine (included) 
IEFSJTOK - SJF Token Build Routine (included) 

IEFSJDEL - SJF Delete 

IEFSJEXT - SJF Extract 

IEFSJFND - SJF Find 

IEFSJJDV - SJF Find JDVT 

IEFSJWRT - SJF Write 

IEFXB501 - Journal Write Routine 

DATA AREAS: 

IEFQMIDS - SWA Block ID and Acronym Constants 
IEFSJACP - SJF Access Parameter List 
IEFSJCNW - SJF Control Work Area 
IEFSJDLP - SJF Delete Parameter List 
IEFSJEXP - SJF Extract Parameter List 
IEFSJFNP - SJF Find parameter list 
IEFSJJDP - SJF Find JDVT parameter list 
IEFSJKEY - SJF Key Mapping 
IEFSJRC - SJF Reason Codes 
IEFSJWRP - SJF Write Parameter List 
IEFZB502 - SWA Prefix Mapping 

IEFZB505 - EPA Mapping for Locate Mode SWA Manager 
IEFZB507 - Journal Write Parameter List 
IEZJSCB - Job/Step Control Block 
IHAPSA - Prefix Save Area 
IKJTCB - Task Control Block 

CONTROL BLOCKS: None 
TABLES: IEFSJSDT 
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IEFSJACC - MODULE OPERATION 


This module allows callers to locate a particular 
level of the SWA control block structure* and retrieve 
or update information contained in these blocks. 

It does the following: 

1. If the caller has requested to find a particular level 
of the SWA control block structure: 

A. If the request is for the JOB or Current Step 
token* calls IEFSJTOK to build the token. The 
Active JSCB is used as a starting point in order 
to obtain the token requested. 

B. If the FIND request is NOT for the JOB or Current 
Step token* initializes the parameter list to 
SJF Find SWA block and invokes this routine. 

C. If SJF Find processing is successful or if the 
request is for a DD level search and SJF Find 
returns a return code of 4 and a reason code 
indicating that no SWB chain has been found* then 
processing continues. Otherwise* the return and 
reason code from SJF Find are returned to the 
caller. 

2. Evaluates the SJF token passed by the caller or* if SJF 
Find has been invoked* the SJF token returned from SJF 
Find. If the token is invalid* a return code 4 and a 
reason code indicating that the token is invalid are 
returned to the caller. 

3. Initializes pointers to the SWA control blocks which 
represent the statement being processed. 

4. Obtains a minimum of 4K of storage. If more than 4K of 
storage is needed to process the request* then the 
larger amount is obtained instead. For retrieve 
requests* storage is obtained for a table to contain 
information about each request in the request table. 

For update requests* storage is obtained and the SWA 
blocks to be undated are copied into the storage. 

- If storage was obtained on a previous call to SJF 
Access* then determines if it is large enough to 
accomodate the current storage needed. If so* then 
reuses the existing storage area. Otherwise* 
frees the existing storage area* obtains a larger 
storage area* and anchors it out of the SJF Control 
Workarea (SJCNW). 

- If storage was not previously obtained* then getmains 
the storage area and anchors it out of the SJF Control 
Workarea (SJCNW). 

If the needed storage is unavailable* a return code of 4 
and a reason code indicating that storage is unavailable 
are returned to the caller. 

5. Determines if the JCL Definition Vector Table (JDVT) 
pointed to by the control workarea is the system default 
JDVT. If not* then invokes the SJF Find JDVT routine to 
locate the system default JDVT. If the SJF Find JDVT 
routine processing was not successful* then the return 
and reason code from SJF Find JDVT are returned to the 
caller. 

6. Determines if a Statement Definition Table (SDT) exists 
and if so* whether it contains the verb specified by the 
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XEFSJACC - NODULE OPERATION (Continued) 


caller. 

7. For each entry in the request table* does the following: 

A. Moves (via MVCK) the key, parameter number, address 
of caller's area and length of caller's area into 
local storage. 

B. If the verb was found in the SDT then searches the 
SDT for the key and parameter number. If the key 
and parameter are found in the SDT then obtains 
addressability to the control block which contains 
the data for this request. If the key is found, but 
the parameter is not found in the SDT, sets a 
temporary reason code and an indicator that an error 
has occurred. 

C. If neither the key or parameter were found in the 
SDT, invokes the SJF Extract routine to locate the 
key and parameter in the JCL Definition Tables (JDTs). 
If SJF Extract processing was unsuccessful and the 
reason code from SJF Extract indicates that either 
the key or parameter were not found, sets a temporary 
reason code and an indicator that an error has 
occurred. If SJF Extract processing was unsuccessful 
for a reason other than the key or parameter was not 
found, the return and reason code from SJF Extract 
are returned to the caller. 

D. Ensures that the key may be accessed by the caller. 

If the key is defined in the JDT as a system use 
only key and the caller has not specified that 
this is a system use invocation, sets a temporary 
reason code and an indicator that an error has 
occurred. If the key is defined in the SDT as an 
authorized use only key and the caller has indicated 
that this invocation is on behalf of an unauthorized 
caller, sets a temporary reason code and an indicator 
that an error has occurred. 

E. Ensures that the caller has specified a non-zero 
address and a valid length for the field into which 
data will be retrieved or from which the SNA blocks 
will be updated. If the address is zero or the 
length is invalid, a return code of 4 and a reason 
code describing the error are returned to the caller. 

F. For retrieve requests: 

1. Ensures that the data is valid. If the key is JDT 
defined, checks the validity bit in the SWB. If 
the key is SDT defined, performs validity checks as 
defined in the SDT. If the data is not valid, sets a 
temporary reason code and an indicator that an error 
occurred. 

2. Stores information about the request in the local 
retrieve table. 

G. For update requests: 

1. If the key is SDT defined, ensures that the key may 
be updated. If the key can not be updated, sets a 
temporary reason code and an indicator that an error 
occurred. 

2. Moves (via MVCK) the data to be updated into local 
storage. 
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IEFSJACC - NODULE OPERATION (Continued) 


3. Performs validity checking on the data to be updated. 
If the data is invalid> a return code 4 and a reason 
code indicative of the error are returned to the 
caller. 

4. Updates the SWA block copies with the data to be 
updated. If the key is JDT defined> invokes SJF 
Write SWB to update an existing chain or create 

a new SWB chain. If SJF Write is unsuccessful* the 
return and reason code from SJF Write are returned 
to the caller. If the key is SDT defined* updates 
the SWA block and sets validity indicators as 
defined in the SDT. 

H. Determines if processing should continue with the next 
request in the request table. If no errors have 
occurred or if an "allowable" error has occurred and 
the caller has specified to continue after certain 
"allowable" errors have occurred* then processing will 
continue with the next request in the request table. 

If the caller has not specified to continue processing 
after "allowable" errors occurred> a return code of 4 
and the reason code previously set are returned to the 
caller. See RETURN CODES below for a list of reason 
codes which describe "allowable" error conditions. 

8. After all requests in the request table have been 
processed* performs the operation requested. For 
retrieve requests* copies the SWA block information 
for each key into the fields specified by the caller. 

For update requests* copies the SWA block copies into 
the original SWA blocks or anchors a new SWB chain and 
if journalling was requested* invokes IEFXB501* the 
journal routine. 

9. If the caller did NOT specify "NOCLEANUP" (SJACNOCU), 
then frees the storage area that has been obtained. 

10. Returns to the caller. 

RECOVERY OPERATION: 

If an abend occurs in this module* the SJF control 
routine's recovery (entry point RECOVERY in IEFSJCNL) 
receives control from RTM. The recovery routine 
specifies to RTM the retry address (ACCRETRY) in the 
SJF control workarea. When ACCRETRY (in this module) 
receives control from RTM* it does the following: 

1. Sets the return code to indicate a SJF system error. 

2. If any new SWBs were created* invokes SJF Delete to 
delete the new SWBs. 

3. Frees storage that has been obtained. 

4. Returns to the caller. 
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IEFSJACC - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJACC 
ACCRETRY 


MESSAGES: None 


ABEND CODES: 

•054'X (decimal 84) and the following 
reason codes in decimal 

10 - Invalid control block acronym encountered in SDT 

11 - Invalid validity type in SDT 

12 - Invalid data type for this parameter in SDT 

13 - Invalid special key defined in SDT 

15 - Invalid data type for this parameter - no parameter 
checking routine exists 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJACC: 

EXIT NORMAL: 

Register 15 » 0 - Request completed successfully 

Reason codes in SJACREAS 
SJRCNOER (0) - Request completed successfully 

SJRCALLH (1304) - Allowable errors occurred - see SJACRSN 
to evaluate the error 

Reason codes in SJACRSN for SJRCALLM 

SJRCNKEY (202) - Key not defined 

SJRCNPRM (203) - Parameter not defined 

SJRCIVKY (504) - Invalid key, system specification only 

SJRCNDAT (1300) - No data exists for this parameter 

SJRCNATH (1301) - Not authorized to access this data 

SJRCNUPD (1303) * Key not updateable 

SJRCNOCB (1306) - Control block does not exist 

EXIT ERROR: Return to caller 

Register 15 = 4 - Request was not processed 

Reason codes in SJACREAS: 

SJRCNOER (0) - No errors detected 

SJRCIVTK (2) - Invalid token 

SJRCNKEY (202) - Key not defined 
SJRCNPRM (203) - Parameter not defined 

SJRCIVLN (500) - Invalid length of parameter 

SJRCIVCH (501) - Invalid choice specified for parameter 

SJRCGMAX (502) - Parameter exceeds maximum 

SJRCLMIN (503) - Parameter less than minimum 

SJRCIVKY (504) - Invalid key> system specification only 

SJRCIVRB (508) - Verb not specified in the parameter 

list 

SJRCIVLB (509) - Label not specified in the parameter 

list 

SJRCNLLN (510) * Length of level exceeds the maximum 

SJRCNLNM (511) - number of levels exceeds the maximum 

SJRCNFCH (512) - Invalid first character of level 
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IEFSJACC - DIAGNOSTIC AIDS (Continued) 


SJRCNOCH (513) 

SJRCNLIV (514) 
SJROSTRA (603) 
SJRCNDAT (1300) 
SJRCNATH (1301) 

SJRCNSTG (1302) 


SJRCNUPD (1303) 
SJRCPLST (1305) 
SJRCNOCB (1306) 
SJRCLSTG (1307) 
SJRCSSTG (1308) 


- Invalid character other than first in 
level 

- Invalid specification of level 

- No address specified for storage area 

- No data exists for this parameter 

- Not authorized to access this 
information 

- Unable to obtain storage for 
Infernal retrieve table or temporary 
SWA blocks 

- Key not updateable 

- Error in parameter list 

- Control block does not exist 

- Storage area exceeds required amount 

- Storage area less than required amount 


EXIT ERROR: Return to caller 


Register IS « 20 - SJF System error 
ENTRY POINT ACCRETRY: 


EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJACC: 

Register 0 = Undefined 

Register 1 = Address of two words that 

contain the address of 
the input parameter list 
and the address of the 
control work area. 

Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT ACCRETRY: 

Register 0 = Undefined 

Register 1 = Address of ESTAE parameter list 

Register 2-14 = Undefined 

Register 15 = Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJACC: 


Register 0 = Restored 

Register 1 = Address of two words that 

contain the address of 
the input parameter list 
and the address of the 
control work area. 

Registers 2-12 = Restored 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Return code 

ENTRY POINT ACCRETRY: 
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Registers 0-14 = Restored 
Register 15 = Return code 
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XEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine STEP 01 


SJF control routine (IEFSJCNL) 


PARAMETERS 
IsJACP SJCNH 



XEFSJCNW 


SJCNRTRY SJCNLEVL 
SJCNCSTO SJCNBASE 
SJCNSAVE 


J\ 

1 / 


XEFSJACP j-> 

IsJACFIND I 


XEFSJACP j-> 

IsJACUPD SJACRET I 


This module allows callers to locate a 
particular level of the SNA control block 
structure> and retrieve or update 
information contained in these blocks. 


01 


Updates the module level* 
the storage address* the 
base register* the save area 
pointer* and the retry 
address in the SJF control 
workarea and performs 
initialization 


02 


Verifies the input parameter 
list 



VERPARML: 14 


031 If no errors have occurred 
— 1 If this request involves an 
invocation of SJF Find 
Initializes the parameter 
list and invokes SJF Find 



INVKFIND: 21 


04 If no errors have occurred 
1 — 1 If this is a retrieve or an 
update request 


A. Validates SJF token 
/I-- 


VALTOKEN: 30 


If the token is valid 
Establishes control block 
mapping pointers for the 
control blocks required for 
this request* obtains 
storage* and searches the 
SDT for the verb specified 
/«-1\.- 


SETUPRTN: 34 


J\XEFSJCNW 


SJCNACFP 

SJCNRTRY 

SJCNLEVL 

SJCNCSTO 

SJCNBASE 

SJCNSAVE 


1AIEFSJACP 


H/ 


SJACREAS 
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ZEFSJACP 


SJACREQS SJACINFOr 


IEFSJCNW 


ISJCNCKEY 


06 For each key specified by 
1 — 1 the caller* does the 
following: 

A. Searches for the key and parameter 

number in the SDT. If neither the key or 
parameter number were found in the SDT> 
invokes SJF Extract to locate the key 
and parameter number in the JDTs. 


VALKEYCK: 40 


B. Ensures that key is able to be accessed 
by the caller 

-1 

\i- ,/\ CHECKAUT: 77 


C. Checks caller's field for a valid 
address and length 
/i-i\.- 

\i- 1 / CHECKFLD: 86 


XEFSJACP 


SJACRET 


D. For retrieve requests> ensures that the 
data in the SNA block is valid and 
stores information pertaining to the 
request in the internal retrieve table. 

I f thi s is a retrieve request 

\i-1/| RETRPRGC: 46 I 


XEFSJACP 


E. For update requests> ensures that the 
key is updateable> performs validity 
checking of the data> and updates the 
SWA block copies with the data specified 

I f thi s is an update request 

\i-1/| UPDPROC: 50 


XEFSJACP 


Xf allowable errors have 
occurred, and the caller has 
not requested to continue 
processing when allowable 
errors have occurred, then 
sets the return code to 
indicate the request was not 
processed. 


KXEFSJACP 

i /, | I 

SJACREAS 
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IEFSJACC - Scheduler JCL Facility ISJFJ Access SWA Routine STEP 08 


IEFSJCNW i-1\ 


SJCNCKEY 

_n 

XEFSJACP 

SJACREAS 

j- 



RTM 

ACCRETRY 


IEFSJCNW 


SJCNCSTO SJCNBASE 
SJCNSAVE 



J\ 

V 


XEFSJACP --> 

IsJACUPD 1 


08 


Otherwise» indicates that at 
least one allowable error 
has occurred during this 
invocation 


09 


If no terminating errors 
have occurred or if 
allowable errors have 
occurred and the caller has 
requested to continue 
processing* then does the 
following: 


If retrieve request* then retrieves 
information into the caller's fields 



RETRINFO: 125 


If update request* then copies the 
contents of the temporary SHA blocks 
into the actual SWA blocks 



WRITBLKS: 128 


10 Xf entering from RTM after 
— 1 an ABEND* restores the data 
register* code register and 
savearea pointer* and sets 
the return code to indicate 
an SJF system error. 



Performs cleanup processing* 
Restores the caller's module 
level* storage address* base 
register* savearea address 
and retry routine address. 


12 


Xf this is an update request 
Xf the SWB chain has been 
copied into local storage* 
but has not been copied back 
into the original SWB chain 
Determines if new SMBs have 
been created and if so 
invokes SJF Delete to delete 
them 


DELETSHB: 136 


-KXEFSJACP 


SJACRSN 

SJACVLKY 
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XEFSJACC - Scheduler JCL Facility l SJF) Access SWA Routine 
IEFSJCNW r - 


STEP 13 


SJCNAPTR 

i 

ZEFSJACP j 

SJACNOCU 


ZEFSJRC 

SJRCALLM | 


i 


—> 
-»\ 
V 



ZEFSJACP 


SJACUPO SJACRET 
SJACFIND 


IEFSJRC 


SJRCPLST 


ZEFSJACP 


SJACUPO SJACRET 


ZEFSJRC 


SJRCPLST 


ZEFSJACP 


SJACUPO SJACRET 


ZEFSJACP 


SJACRPTR 


ZEFSJRC 


SJRCPLST 


ZEFSJACP 


14 


VERPARML 


—> 
J\ 


SJACREQ* 


ZEFSJRC 


SJRCPLST 


—> 
-K 
V 


—> 

■J\ 

V 


—> 

->\ 


14 


15 


16 


17 


Verify SJF Access Parameter 
List 


Zf the request type is 
invalid Sets reason code to 
indicate error in parameter 
list 


Xf retrieve and update are 
both specified Sets reason 
code to indicate error in 
parameter list 


Xf retrieve or update 
request 


If request table address equals zero 
Sets reason code to indicate invalid 
storage address 


Otherwise* if the number of requests 
equals zero Sets reason code to indicate 
invalid parameter list 


-KIEFSJACP 


—,/ 

SJACREAS 

K 1 

[EFSJACP 


.. K 

SJACREAS 


[EFSJACP 

* 

K 

SJACREAS 

_lv TCCC.IAPD 

V 

|- 1/| 

-1 


SJACREAS 
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IEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine 


STEP 17A 


XEFSJACP 


SJACFIND SJACFNP 


IEFSJRC 


SJRCPLST 


XEFSJACP 


SJACREQS SJACRPTR 


XEFSJRC 


SJRCPLST 


XEFSJACP 


XEFSJACP 


SJACREAS SJACFIND 
SJACJB7K SJACCSTK 


IEFSJRC 


SJRCPLST 


XEFSJACP 

SJACREAS SJACUPD 
SJACJRNL SJACALT 


XEFSJRC 


SJRCPLST 


XEFSJACP 


SJACREAS 


V 


—> 
-J\ 



-> 

J\ 

V 


A. If this not an SJF Find request combined 
with the retrieve or update request and 
SJF Find parameters have been specified 
then Sets reason code to indicate 
invalid parameter list 


-MEFSJACP 


18 This is a request to invoke 
— 1 SJF Find without retrieve or 
update processing If the 
number of requests or 
storage pointer are non-zero 
then Sets reason code to 
indicate invalid parameter 
list 

If no errors encountered If this request 
involves an invocation of SJF Find and 
no parameters for SJF Find have been 
specified Sets reason code to indicate 
invalid parameter list 


If no errors encountered If this request 
involves a Find for both a JOB and a 
Current Step token Sets reason code to 
indicate invalid parameter list 


If no errors encountered If not an 
update request and journalling requested 
or alternate SWA manager address 
supplied Sets reason code to indicate 
invalid parameter list 


- 1/ 

SJACREAS 

U 1 

[EFSJACP 


■ . . K 

SJACREAS 

kl 

[EFSJACP 

* 

V 

SJACREAS 

K 1 

tEFSJACP 

* 

K 

SJACREAS 

Kl 

[EFSJACP 


K 

SJACREAS 


19 


20 


If any errors have been 
encountered Sets the return 
code to indicate that the 
request was not processed 


Returns to subroutine caller 


tTI 


\ / 
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STEP 21 


21 >21 Initialize parameter list 

1 - 1 / — 1 and invoices Find routine 

INVKFIND 


IEFSJACP 


ISJACJBTK SJACCSTK| 


-> 22 If the FIND request is for a 
1 — 1 JOB or Current Step token* 
then invokes IEFSJTOK to 
obtain the token. 


Otherwise, calls SJF Find to obtain the 
token. 

A. Invokes SJF token build 

/■-K,---L, 

\|-,/ IEFSJTOK 

TOKNJTYPE, SJACTOKN, SJACREAS 


IEFSJACP 


SJACREAS 


IEFSJFNP 


SJFNP SJFNCID 
SJFNCVER 


IEFSJACP 


SJACTOKN SJACCHID 
SJACNEXT SJACNJST 
SJACJOB SJACCST 
SJACST SJACSTPN 
SJACPRLB 


23 NOT a JOB or Current Step 
1 token request Otherwise* 
does the following: 

J \ A. Initializes parameter list to SJF Find 

i / 


J\ B. Copies the SJF FIND parameters specified 
\/ in the SJF Access parameter list into 
the SJF Find parameter list. 


C. Invokes SJF Find 

/■-K|- 


IEFSJFND 


SJFNP, SJCNW 


KIEFSJFNP 

i/|- 

SJFNP 

SJFNID 

SJFNVERS 

SJFNLEN 

KIEFSJFNP 

i 7 |- 

SJFNNEXT 

SJFNJOB 

SJFNCST 

SJFNST 

SJFNJST 

SJFNSTPN 

SJFNCHID 

SJFNTOKN 

SJFNPRLB 
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STEP 24 


ZEFSJRC 

SJRCNSCH 

XEFSJACP 

SJACVERB 

XEFSJKEY 


If a valid return code is 
received from SJF Find* then 
copies the SJF token* 
statement number* verb and 
label from SJF Find into the 
SJF Access Parameter list 


25 Returns to subroutine 


XEFSJFNP 

SJFNREAS SJFNCHID■ 
SJFNTOKN SJFNSTMT 


PARAMETERS 


SMA_SVA 

PREFIXPTR 

BLOCKPTR 

IEFZB505 

IsHAEPAX 


- 1 \ 

26 > 

-1/ 

SWAMPROC 


SWA Manager Routine 


27 Invokes SWA Manager. 





\XEFSJACP 

/.- 

SJACREAS 

SJACTOKN 

SJACCHID 

SJACSTMT 



\XEFZB505 


SWAEPAX 

SMVA 


XEFZB505 


SWPFXPTR 


Sets the SWA block prefix 
pointer to the prefix 
pointer returned from SWA 
Manager 


J \PARAMETERS 

\ / \ - 1 

PREFIXPT 

R 


ZEFZB505 


ISWBLKPTR 


Sets the SWA block pointer 
to the block pointer 
returned from SWA Manager 


Parameters 

1 IBLOCKPTRI 
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XEFSJACC - Scheduler JCL Facility CSJF) Access SWA Routine 


STEP 30 


bo > 30 1 Validate SJF token 
VALTOKEN 


31 If the first word of the 
1 — 1 token does not equal zero 

A. Invokes SWA Manager to convert the SVA 
into a prefix pointer and a block 
pointer 

/l -N- 

\l-./ SWAMPROC: 26 


W0RD1 T0XEN_SVA, PREFIX_PTR, 
BLOCK PTR 


IEFZB502 


SWPACRO 


IEFQMIDS 


SWJCTAC SWSCTAC 
SWSIOTAC SWSWBAC 


IEFSJACP 


SJACVERB 


IEFSJKEY 


SJVBDD SJVBEXEC 
SJVBJOB 


XEFSJRC 


SJRCIVTK 


XEFASIOT 


SCTDDNAM SIOTSWB 


XEFSWB 


,SWBVERB SWBVRBL 


B. Validates the control block ID in the 
control block pointed to by the prefix 
pointer variable. 


MEFSJACP 


SJACREAS 


IEFSJACP 

SJACUPD 

IEFSJACP 


SJACVERB SJACLABL 


IEFSJRC 


32 Otherwise, if this is an 
— 1 update request, determines 
if the second word of the 
token contains the address 
of a valid anchor word. 


MEFSJACP 


SJACREAS 


SJRCIVTK SJRCIVRB 
SJRCIVLB 
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XEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine 


STEP 33 


XEFSJACP 


SJACREAS 


XEFSJRC 


SJRCIVTK 


Otherwise, if both the first 
and second words of the 
token are zero, then sets 
the reason code to an 
indicate invalid token was 
specified. 


KXEFSJACP 
1 ISJACREASI 


- 

34 > 

-1^ 

SETUPRTN 


Set up storage and data and 
searches the SDTs for the 
verb specified 


SETUPTRS: 54 


XEFSJACP 


XEFSJACP 



Ensures that a minimum 
amount of storage is 
obtained. If NOCLEANUP was 
specified, then this storage 
area will be reused among 
ACCESS calls by anchoring it 
out of the SJF control 
workarea. 


Obtains required storage 


GETSTORs 60 


STORAGE_SIZE, ST0RAGE_PTR 


Xf no errors occurred Xf 
this is an update request 
For update requests, copies 
the SVIA blocks into the 
storage area obtained 


COPYBLKS: 56 


XEFSJJDP 


38 Invokes the SJF Find JDVT 
— 1 routine to locate the system 
default JDVT 

/i-i\j- 

\i-■ / iefsjjdv 



\XEFSJJDP 


SJJDP 

SJJDID 

SJJDVERS 

SJJDLEN 

SJJDJDVT 


SJJDP SJJDCID 
SJJDCVER 


SJJDP, SJCNM 
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IEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine STEP 39 



XEFSJEXP 


SJEXP SJEXCID 
SJEXCVER 


R15 


i— Jn 
40 > 

VALKEYCK 



V 



40 


Valid Key Check routine 


41 


If verb is SDT defined 
searches for the key and 
parameter number in the SDT 


SRCHKEY: 64 


42 If no errors have occurred 
— 1 and the key and parameter 
were not found in the 
Statement Definition Table 
then invokes XEFSJEXT to 
search for the key and 
parameter in the JCL 
Definition Tables (JDTs). 



Initializes fields in SJF 
Extract parameter list. 


A. Invokes SJF Extract 

/i-i\.- 

\|-,/| IEFSJEXT 


SJEXP, SJCNW 


44 


If the key was not found in 
the JDTS, then terminates 
processing for this key. 
Otherwise, indicates the key 
is JDT defined. 


-KXEFSJEXP 
1 / 


SJEXP 

SJEXID 

SJEXVERS 

SJEXLEN 

SJEXJDVT 

SJEXVERB 

SJEXKEY 

SJEXPARM 


SJF-36 MVS/XA SLL: Sched JCL Fae 


LY28-1740-1 (o) Copyright IBH 1987, 1989 


















"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


XEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine 


STEP 45 


XEFSJEXP 


SJEXREAS 

SJEXPFL1 

SJEXPLNM 

SJEXPHGH 

SJEXPVAL 

SJEXPFL5 

SJEXPFSA 

SJEXPOSA 


SJEXPCNL 

SJEXPMIN 

SJEXPLLN 

SJEXPLOW 

SJEXPFL4 

SJEXPFSN 

SJEXPOSN 


R15 


SJEXPCHA 


IEFSJRC 


SJRCNKEY SJRCNPRM 


IEFSJEXP 



—> 
J\ 
V 


45 


Copies parameter fields from 
the SJF Extract Parameter 
list into a common Access 
data area* 


-JMEFSJACP 


SJACREAS 
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IEFSJACC - Scheduler JCL Facility CSJF) Access SWA Routine STEP 50 


-K 

50 > 

- 1 / 

UPDPROC 


1 1 

50 

UPDATE Processing Routine 


XEFSJSDM 


SDTKUPD 


IEFSJRC 


SJRCNUPD 


J1 


IEFSJCNW 


SJCNCKEY 


-»\ 

V 


51 


Ensures that the key 
requested is updateable 


A. If key is not updateable, sets reason 
code to indicate key not updateable, and 
indicates an allowable error occurred. 


Checks data type for this 
parameter 


/'■ 

\r 


CHECKTYP: 89 


53 


Copies the caller's field 
into the temporary SWA 
block. 


-K 

54 > 

- l / 

SETUPTRS 


IEFSJKEY r-> 

IsJVBJOB 1 


ZEFAJCTB j-> 

Ijctactad 1 


IEFSJKEY j-> 

SJVBEXEC I 


54 


Set pointers to SWA blocks 


55 


Initializes SWA block 
mapping pointers based on 
the level of the SWA 
structure as indicated by 
the verb specified. 


A. For JOB statement requests, initializes 
the JCT pointer and the job level ACT 
pointer (if one exists). 

B. If the ACT SVA does not equal zero 
Invokes SWA Manager to convert the SVA 
into a prefix and block pointer 

/'--1 

\ |- 1 / SWAMPROC s 26 


JCTACTAD, PREFIX_PTR» JACTPTR 


C. For EXEC statement requests, initializes 
the SCT pointer and the step level ACT 
pointer (if one exists). 
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ZEFASCTB 


SCTAFACT 


r 


ZEFSJKEY 


SJVBDD 


ZEFASIOT 


INDMSIOT SCTPJFCB 


ZEFJFCBN 


JFCBEXAD 


ZEFZB502 


SWPACRO 


ZEFQMZDS 


SWJFCEAC 


ZEFJFCBX 


JFCBX 


JFCBXTTR 


ZEFASZOT 


SIOTSCT 


ZEFASCTB 


SCTADSTB 


ZEFSWB 


SMB 


ZEFZB502 


SWAPFX 


ZEFSWB 


SWBNEXT 


—> 


—> 
J \ 
1 / 


D. If the ACT SVA does not equal zero 
Invokes SWA Manager to convert the SVA 
into a prefix and block pointer 

/I-K 


i/ 


SWAMPROC: 26 


SCTAFACT, PREFIX_PTR, SACTPTR 


E. For DD statement requests, initializes 
the SIOT pointer, the JFCB pointer (if 
one exists), the JFCBE pointer I if one 
exists), the JFCBX pointers (if any 
exist), the SCT pointer (if one exists), 
and the DSNT pointer (if one exists) 

F. Invokes SWA Manager to convert the SVA 
into a prefix and block pointer 


SWAMPROC: 26 


SCTPJFCB, PREFIX.PTR, JFCBPTR 


G. For requests which involve a SWB chain, 
initializes the pointer to the first SWB 
on the chain. 


H. Invokes SWA Manager to convert the SVA 
i nto a prefix and block pointer 

\ i-1 /1 SWAMPROC: 26 


FIRST_SWB_SVA, SAVE_SPFXPTR, 
BLOCK PTR 


STEP 


55D 
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PARAMETERS 


STORLNTH STORAODR 


- 

60 > 

- 1 / 

GETSTOR 


Get storage routine 


XEFSJCNW 


SJCNAPTR SJCNASIZ 


PARAMETERS 


STORLNTH 


XEFSJRC 



r -> 61 Xf calculated storage size 

s |-1\ 1 — 1 is greater than the current 

: |-,/ storage allocation obtains 

i larger storage area 


SJF-40 MVS/XA SLL: Sched JCL Fac 


Xf storage could not be 
obtained, then sets the 
return and reason code to 
indicate storage was not 
available. 



\IEFSJCNW 

/■- 1 

SJCNAPTR 

SJCNASIZ 


MEFSJACP 

ISJACREASi 
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ZEFSJCNW 


SJCNAPTR SJCNASIZ 




-K 

64 > 

- \ / 

SRCHKEY 


XEFSJSDM 
SDTVKEYB SDTVKEYM 
ZEFSJSDM 

ISDTVKPTR 


ZEFSJSDM 

SDTKPNUM 

ZEFSJSDM 

IsDTKPPTR 




J\ 

V 


ZEFSJACP 


SJACRET 


XEFSJSDM 


cnTonnrp cwtdmav 


OU1 rUUr r *>U 1 rrlMA 

SDTPMIN 


XEFSJSDM 

r 

SDTPDOFF |-1 


V 


J\ 


64 


Search Statement mapping for 
Key 


Searches statement mapping for the key 
and parameter number specified. 


65 


Checks if key specified in 
the parameter list is in the 
range of keys allowed for 
this verb. 


66 


Searches statement mapping 
for the key and parameter 
number specified 



If the key and parameter 
number are found in the SDT» 
obtains addressability to 
the control block that 
contains the information to 
be retrieved or updated. 



SET_BLOCK_PTR: 

73 

IsDTPCBLK, SWA — BLOCK PTR > 1 

COPY_SWA_BLQCK_PTR 



69 


Obtains addressability to 
the field in SWA by adding 
the offset of the SWA field 
specified in the SDT to the 
pointer to the control block 
containing the field 


70 


Gains addressability to the 
temporary SWA field by 
adding the offset of the SWA 
field ( in stmt mapping) to 
the pointer to the temporary 
SWA block 
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XEFSJSDM 



IEFSJSDM 


SDTPTYP 

SDTPBYT - 

SDTPSPC 

SDTPCRC 

SDTPINC 

SDTPCVAL 


XEFSJRC 

SJRCNPRM SJRCNDAT 
SJRCNOCB 


■> 

\ 

/ 




Set control block pointer 

FUNCTION: Obtains addressability to the 
control block associated with a particular 
SNA block acronym 

ENTRY: From SRCHKEY, VALCHECK, UPDBLKS 

INPUT: CBACRO = Control block acronym 

OUTPUT: CBPTR = Pointer to the SWA control 
block COPYPTR = Pointer to the SWA control 
block copy 

EXIT: To SRCHKEY, VALCHECK, UPDBLKS 
RETURN CODE: RETURN.CODE _ 

74 Checks the SWA acronym 
—specified in the SDT 
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XEFQMXDS 


SWJCTAC SWACTAC 
SWSCTAC SWSIOTAC 
SWDSNTAC SWJFCBAC 
SWJFCXAC SWJFCEAC 


IEFSJACP 


SJACUPD 


75 


Sets up the SWA block and 
temporary SWA block pointers 
based on the control block 
acronym specified 


J \PARAMETERS 


CBPTR 

COPYPTR 


76 


If an invalid control block 
acronym was obtained from 
the SOT, then issues ABEND 
054 with reason code '10'. 


IEFSJSDM 


SDTPRBLK 


XEFSJKEY 

_! 

SJVBEXEC 



77 


XEFSJEXP 


SJEXSYST 


IEFSJACP 


CHECKAUT 


— > 
-K 
V 


SJACSYST 


XEFSJRC 


SJRCIVKY 


IEFSJSDM 


SDTKAUTH 


IEFSJACP 


SJACUMAU 


IEFSJRC 


SJRCNATH 


—> 
-«\ 
V 


77 


78 


79 


80 


Check user authority 


If key is JDT defined and 
specified as system use 
only, but the caller has not 
specified that this is a 
system use invocation, then 
sets the reason code to 
indicate that the key is for 
system use only and 
indicates that an allowable 
error occurred. 


If key is SDT defined and 
specified as authorized use 
only and the caller is on 
behalf of an unauthorized 
user, then sets the reason 
code to indicate that the 
key is for authorized use 
and indicates that an 
allowable error occurred. 


Returns to subroutine caller 


FI 


\ / 
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XEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine STEP 


- 1 \ 

81 > 

- i / 

VALCHECK 


XEFSWB 


SWBOWNM SK3BKID 
SKBDATA 


XEFSJEXP 


SJEXSOKN SJEXSBID 


XEFSWB 


SWBNEXT 


XEFSJEXP 


SJEXPBYO 


XEFSWB 


SWBVALID 


— > 
-K 
V 


XEFSJSDN j-> 

IsDTKIND SDTKMASkI 


XEFSJSDM 
IsDTPVAL SDTPVPTR 



J\ 

V 


81 


Validity Check Data 


82 


For JDT defined data does 
the following: 


A. Checks if the SWB containing the data is 
on the SMB chain 


B. If the SWB is found, checks the validity 
bit for the data requested. 


Fop SDT defined data does 
the following: 

A. For a select set of keys, determines if 
the key was user-specified (via JCL or 
Dynamic Allocation), or defaulted by the 
system. 

B. Performs the validity checking as 
defined in the SDT 


83 



Obtains addressability to 
the control block containing 
the validity indicator 


SET_BLOCKJ>TR: 73 

VALIDPTR->SDTPVCB, 

VAL BLOCK_PTR, 

COPY VAL_BLOCK_PTR 


81 
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XEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine STEP 


93 


For character data invokes 
XEFSJCCH - SJF Check 
Character routine 


94 



IEFSJCCH 


LENGTH CALLERS_AREA> 
TEMPAREA, SJACREAS 


95 


For AS-IS data invokes 
XEFSJCAS - SJF Check Asis 
routine 


96 


IEFSJCAS 


LENGTH CALLERS AREA, 
TEMPAREA, SJACREAS 


97 


For byte mask data invokes 
XEFSJCBM - SJF Check Byte 
Mask routine 


98 


/L— N- 

\|-1/ IEFSJCBM 


TEMPAREA, COPY_SNA BYTE, 
SJACREAS 


99 


For hexadecimal data invokes 
XEFSJCHX - SJF Check Hex 
routine 


100 


/'— 1 \ 

\,—,/ 


IEFSJCHX 


LENGTH CALLERS_AREA, 
TEMPAREA, SJACREAS 


101 


For integer data invokes 
XEFSJCIN - SJF Check Integer 
routine 


102 



IEFSJCIN 


LENGTH CALLERS AREA, 
TEMPAREA, SJACREAS 


93 
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XEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine STEP 103 


XEFSJACP 


SJACREAS 


103|For reference data invokes 
XEFSJCCH - SJF Check 
Character routine 


104 


IEFSJCCH 


LENGTH CALLERS AREA, 
TEMPAREA, SJACREAS 


105 For data which requires 

-'special processing, invokes 

the special data processing 
routine 


106 


SPECIAL: 108 


107 


Returns to subroutine caller 


Invokes SPECIAL subroutine 

/_i Sr -, | 


in 


\ / 


— 1 \ 
108 > 

-1/ 

SPECIAL 


-1 

108 

SPECIAL Key Routine 


IEFSJKEY (■-> 

IsJKYVRDD 


109 


For V0L=REF=DDNAME, obtains 
SVA of the referenced DO and 
stores in first word of an 8 
byte field provided by the 
caller to create a DD token 
for the referenced DD 


XEFASXOT 


SCTVOLAF SCTDSNRF 


XEFASXOT 


SIOTVRSB 


XEFSJRC 


SJRCNOAT 


—> 
J\ 


110 


Validity checks for 
VOL=REF=DDNAHE. 
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XEFSJACC - Scheduler JCL Facility CSJF) Access SWA Routine STEP 111 


XEFSJKEY 


SJKYVRDS SJKYDCBR 


XEFSJKEY 


SJKYVRDS 


XEFASXOT 


SCTVOLAF SCTDSNRF 


XEFASIOT 


SIOVDSNT SIOVDSNLr 


XEFSJRC 


SJRCNDAT 


XEFASXOT 


SIODSNTE SIODDSNLi 


XEFSJRC 


SJRCNDAT 


XEFDSNT 


DSNTBLN 


-J\ 

V 


XEFDSNT 


DSNTNSVA 




XEFSJRC 


SJRCNOCB p— 

XEFDSNT 

r - 

DSNENTRY 


XEFSJKEY 

_j 

SJKYVSRN 


XEFDSNT 


DSNTBLN |- 


■J\ 
t i/ 


->s 

-1/ 


I 111 For VOL=REF=dsname and 

'-'DCB=dsname, obtains 

addressability to the 
Dataset Name Table* (DSNT)* 
that contains the dataset 
name specified. 


11121 For VOL=REF=dsname* performs 
'validity checking. 


113 For DCB=dsname* performs 
1 -'validity checking 


114 Locates the relative DSNT 


11151 If the SVA of the next 
'dataset name table is 
non-zero Invokes SWA Manager 
to convert the SVA into a 
prefix and block pointer 
/'-'v 

SHAMPROC: 26 


DSNTNSVA* PREFIX_PTR, 
DSNTPTR 


1161 Obtains address of DSNT 

entry by adding remainder of 
the DSNT offset to the 
address of the relative DSNT 


117 For VOL=SER» performs 
1 -'validity checking. 
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XEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine 


STEP 117A 


IEFSJACP 


IEFSJACP 


SJACREAS SJACRET 


IEFSJKEY 


SJKYEXPD 


IEFJFCBN 


IJFCBXPDT 


IEFSJSDM 


SDTPCRC 


IEFSJRC 


ISJRCNDAT 


IEFSJRC 




updblks 120 Update Temporary SWA Blocks 


SJWRP SJWRCID 
SJWRCVER 


IEFSJEXP 


SJEXPBYO SJEXSOWN 
SJEXSBID 


IEFSJACP 


121 For JDT defined data, 

1 - 1 invokes SJF Write SWB 

routine to write the data 
out to the SWB chain copy* 

A. Invokes SJF Write SWB to update the 
temporary SWB chain 

/'-K.- 

\|-1/ IEFSJWRT 

SJWRP, SJCNW 



IEFSJWRP 


ISJWRREAS 



MEFSJACP 


SJACREAS 


MEFSJWRP 

i 7 - 

SJWRP 

SJWRID 

SJWRVERS 

SJWRLEN 

SJWRANCA 

SJWROWNM 

SJWRBKID 

SJWRVERB 

SJWRLABL 

SJWRBYTE 

SJWRDLEN 

SJWRDATA 

SJWRALT 


SJACREAS 
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XEFSJACC - Scheduler JCL Facility (SJF) Access SWA Routine 


STEP 128 




—1\ 

128 > 
* 

XEFSJKEY 


\' 

WRITBLKS 

SJVBDD SJVBEXEC 
SJVBJOB 



XEFASXOT 


K 


* 

INDMSIOT | 

H - 

V 

XEFJFCBX 

lv 

rz 

. / 

JFCBX | 

i_ n 

K 

XEFZB502 


j"' 

_ 1 V 

SMAPFX 



- l/ 



IEFSWB 




SWB SWBNEXT | 






XEFSJACP 


SJACJRNL 


1281 Writes SWA Blocks 


129 


For DD invocations* does the 
following: 


A. Copies the temporary SIOT back into the 
original 

B. Copies temporary JFCB into actual JFCB 

C. Copies temporary JFCBXs into actual 
JFCBXs 


1301 Copies any temporary SWBs 
into actual SWB chain and/or 
anchors any new SWBs which 
were built 


11311Xf a SWB chain has been 
'updated or a new SWB chain 
has been created and the 
caller has specified to 
write these updates to the 
job journal* invokes 
XEFXB501* the journal 
routine 


JOURNAL: 133 


132 Returns to subroutine caller 


KIEFASIOT 


-,/ 

INDMSIOT 

K 1 

[EFJFCBX 



JFCBX 

_lv TBCCI.ID 

1 - 1/| 

r- 1 


SWB 

SWBNEXT 


iTl 


\ / 
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IEFSJBLD - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility l SJF) Build 

SUB Routine 

FUNCTION: 

This module builds a SWB for the following requests: 

1. If the request is for a SWB that is to be part of 
a job's control structure (a SWA SWB), invokes 
the SWA manager to obtain the SWB from a SWA 
subpool and to initialize the SWA prefix. 

2. Otherwise, the request is to build a non-SWA SWB. 

Issues a GETMAXN for storage from subpool 230 and 
initializes a dummy prefix (formatted like the SWA 
prefix) in the new SWB. 

ENTRY POINT: IEFSJBLD 

PURPOSE: See Function 

LINKAGE: CALL 

CALLERS: Scheduler JCL Facility Write SWB (IEFSJWRT) 

INPUT: 

SJF Build SWB parameter list, IEFSJBLP: 


FIELD LENGTH/MASK 

DESCRIPTION 

SJBLP 


Parameter list 

SJBLID 

4 

Identifier 'SJBL' 

SJBLVERS 

1 

Version number 

SJBLFLAG 

1 

Control flags 

SJBLLEN 

2 

Length of parameter list 

SJBLSTOR 

4 

Local storage pointer 

SJBLREAS 

4 

Reason code (returned) 

SJBLSWBI 


Data to identify SHB 

SJBLOWNM 

8 

Owner name 

SJBLBKID 

2 

Block ID 

SJBLRSV1 

2 

Reserved 

SJBLCHNI 


Data to identify SWB chain 

SJBLVERB 

8 

Verb 

SJBLLABL 

8 

Label 

SJBLFLG2 

1 

Flag byte 

SJBLNSWA 

X^O' 

Build is for a non-SWA SWB 

SJBLDYNS 

X'40 1 

Dynamically created SWB 

SJBLRSV2 

3 

Reserved 

SJBLALT 

4 

Address of alternate SWA 
manager 

SJBLNSWB 

4 

Prefix address of the new 
SWB (returned) 

SJBLNSVA 

4 

SVA or address of the 
assigned SWB (returned) 

SJBLSTMT 

4 

JCL statement number 


The input to this module also includes the Scheduler 
JCL Facility control workarea (IEFSJCNW), 

OUTPUT: 

SJF Build SWB parameter list* IEFSJBLP: 

SJBLNSWB = The (SWA prefix) address of the new SWB 
SJBLNSVA = The SVA of the new SWB, or the address 
of the non-SWA SWB 
SJBLREAS = reason code 

EXIT NORMAL: Return to caller 

EXIT ERROR: Return to caller 
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XEFSJBLD - NODULE DESCRIPTION (Continued) 


ENTRY POINT: BLDRETRY 

PURPOSE: 

Performs clean up processing when an ABEND 
occurs during SJF Build's processing. 

LINAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

SNA Manager Locate Mode (IEFQB556) 
Alternate SNA Manager Routine 

DATA AREAS: 

IEFSJBLP - SJF Build Sm Parameter List 
IEFSJCNH - SJF Control Horkarea 
IEFSJRC - SJF Reason Codes 
IEFZB502 - SNA Prefix 

IEFZB505 - Extended External Parameter Area 
CONTROL BLOCKS: 

CVT - Communications Vector Table 

JESCT - JES Communication Table 

PSA - Prefix Save Area 

SHB - Scheduler Nork Block 

SERIALIZATION: 

Obtains the local lock during a branch 
entry GETMAIN/FREEMAIN for a non-SNA SWB. 
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IEFSJBLD - MODULE OPERATION 


This module receives control when a SWB 
needs to be built and performs the 
following functions: 

1* If the request is for a non-SWA SMB: 

- Issues a GETMAIN for storage from subpool 230 
for the SWB (including the dummy SWA prefix). 

- If the GETMAIN failed, sets register 15 to 4, sets 
a reason code of SJRCGETS (1100) in SJBLREAS, and 
returns. 

- If the GETMAIN was successful initializes the dummy 
SWA prefix of the new SWB and sets the non-SWA 
indicator (SWBNSMA) in the SWB prefix. 

2. Otherwise> the request is for a SWA SWB: 

- Builds the extended external parameter area 
(extended EPA mapped by IEFZB505) for the SWA 
Manager Assign/Conditional function. The extended 
EPA contains the length of the block to be 
obtained (192 bytes, excluding the length of the 
SWA prefix) and the block id of the SWB. 

- If an Alternate SWA Manager was not specified 
(SJBLALT is 0)> then invokes the SWA Manager 
Assign/Conditional function to obtain the SWB. 

• If the assign was successful, invokes SNA 
Manager Write/Locate to initialize the SWA 
prefix of the new SWB. 

• If the write was successful, invokes SWA Manager 
Locate/All to get a pointer to the new SWA 
SWB's prefix. 

- If an alternate SWA Manager was specified 
(SJBLALT not 0), then invokes the Alternate SWA 
Manager Assign/Conditional function to obtain 
the SWB. 

• If the assign was successful, invokes Alternate 
SWA Manager Write/Locate to initialize the SWA 
prefix of the new SWB. 

• If the write was successful, invokes Alternate 
SWA Manager Locate/All to get a pointer to the 
new SWA SWB's prefix. 

3. Initializes the SWB with data from the input 
parameter list: SJBLSWBI (owner name and block ID), 
SJBLCHNI (verb and label), SJBLSTMT (statement 
number), and SJBLDYNS (Dynamic SWB indicator) 

4. Stores the address of the SWA prefix for the 
new SWB in SJBLNSWB and the SVA of the new SWB 
in SJBLNSVA of the parameter list. 

5. Returns to the caller. 

RECOVERY OPERATION: 

If an abend occurs in this module, the scheduler JCL 
facility control routine's recovery will receive 
control from RTM. The recovery routine specifies 
the retry address in the SJF workarea 
(BLDRETRY) to RTM. When the retry segment (BLDRETRY) 
receives control from RTM, it does the following: 

1. If a SWB has been obtained, then frees the SWB: 

- If the SWB is a SWA SWB, then calls SWA 
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Manager to free the SWB. 

- If the SWB is a non-SWA SWB, then 
issues a FREEMAIN for the SWB. 

2. Sets the return code to indicate an SJF system 
error. 

5. Returns to the caller. 
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IEFSJBLD - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJBLD 
BLDRETRY 


MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFSJBLD: 

EXIT NORMAL: 

Register 15 = 0 - Processing successful 

Reason codes in SJBLREAS: 

SJRCNOER (0) - Processing successful 

EXIT ERROR: 

Register 15 = 4 - Request not processed 

Reason codes in SJBLREAS: 

SJRCGETS (1100), GETMAIN for a SWB failed, or 
some other SWA Manager error 

NOTE: An 0B0 ABEND occurs for all errors in the 

SWA manager except when a request is made for 
a conditional GETMAIN. 

ENTRY POINT BLDRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJBLD: 

Register 0 = Undefined 

Register 1 = Address of a two word parameter list. 

The first word contains the address 
of the build SWB parameter list 
(IEFSJBLP), and the second word 
contains the address of the SJF 
control workarea (IEFSJCNM) 

Registers 2-12 = Undefined 

Register 13 = Address of 18 word savearea 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT BLDRETRY: 

Register 1 = Address of ESTAE parameter list 

Registers 0,2-14 = Undefined 

Register 15 = Entry point address 


LY28-1740-1 Cc) Copyright IBM Corp. 1987, 1989 


Method of Operation SJF-57 



“Restricted Materials of IBM 11 
Licensed Materials - Property of IBM 


XEFSJBLD - DIAGNOSTIC AIDS 

REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJBLD: 


Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT BLDRETRYs 


Registers 0-14 = Restored 
Register 15 - Return Code 


(Continued) 
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ZEFSJCNL - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility CSJF) Control 

Routine 

FUNCTION: 

This module performs common initial processing 
for the SJF functions> routes the request to the 
specified SJF function, and upon return from the 
specified function, performs common cleanup processing* 

ENTRY POINT: IEFSJCNL 

PURPOSE: See Function 


LINKAGE: BSM 


CALLERS: SJF router routine (IEFSJRTE) 


INPUT: 

There is a different input parameter list for each 
SJF function* The first 16 bytes of each parameter 
list contains the information mapped by the SJF control 
parameter list (IEFSJCNP)* 


FIELD 


LENGTH/MASK DESCRIPTION 


SJCNP 16 

SJCNID 4 

SJCNVERS 1 

SJCNFLAG 1 

SJCNNREC X^O’ 
SJCNNOCU X*40* 
SJCNUNAU X'20 1 
SJCNLEN 2 

SJCNSTOR 4 

SJCNREAS 4 


Control parameter list 
Identifier for requested 
SJF function 
Version number 
Control flags 
No recovery 
No cleanup 
Unauthorized caller 
Length 

Local storage pointer or zero 
Reason code 


OUTPUT: 

SJF control parameter list (IEFSJCNP) 

FIELD LENGTH/MASK DESCRIPTION 

SJCNSTOR 4 Local storage pointer or zero 

SJCNREAS 4 Reason code 

EXIT NORMAL: Return to the issuer of SJFREQ macro 


EXIT ERROR: Return to the issuer of SJFREQ macro 

ENTRY POINT: RECOVERY 


PURPOSE: 

To recover from an error that caused the exit 
to RTM. 

LINKAGE: SYNCH 


CALLERS: RTM 


INPUT: 

Estae parameters 

System diagnostic work area (SDHA) 

OUTPUT: SVC dump and a record written in LOGREC data set* 
EXIT NORMAL: 

Return to RTM specifying the retry 
address stored in the SJF control 
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IEFSJCNL - NODULE DESCRIPTION (Continued) 


Morkarea. 

EXIT ERROR: 

Percolate to the caller's recovery routine 
if the abend did not occur while SJF was 
processing or a previous ABEND occurred. 

ENTRY POINT: RECCLEAN 

PURPOSE: 

To perform cleanup processing when an abend 

occurred during the SJF control routine's * 

processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: Estae parameters 

OUTPUT: None 

EXIT NORMAL: 

EXIT ERROR: Return to the issuer of SJFREQ macro 

EXTERNAL REFERENCES: 

ROUTINES: 

IEFSJACC - SJF Access Function 

IEFSJDEF - SJF Define JDVT 

IEFSJDEL - SJF Delete SNB 

IEFSJERS - SJF Erase 

IEFSJEXT - SJF JDT Extract 
IEFSJFND - SJF Find SMB 
IEFSJGET - SJF Get SWB 
IEFSJINT - SJF JDVT Initialization 
IEFSJJDV - SJF Find JDVT 
IEFSJPUT - SJF Put SMB 
IEFSJRET - SJF Retrieve 
IEFSJUPD - SJF Update 
IEFSJVER - SJF Verify 
IEFSJHRT - SJF Mrite SMB 

DATA AREAS* 

IEFSJCNP - SJF Control Parameter List 
IEFSJCNW - SJF Control Work Area 
XEFSJRC - SJF Reason Codes 

CONTROL BLOCKS: 

CVT - Communications Vector Table 

JESCT- Job Entry Subsystem Communications Table 

SDWA - System Diagnostic Work Area 


SJF-60 MVS/XA SLL: Sched JCL Fac 


LY28-1740-1 (c) Copyright IBM 1987, 1989 



"Restricted Materials of IBM” 
Licensed Materials - Property of IBM 


IEFSJCNL - NODULE OPERATION 


This module performs common initial processing for 

the SJF functions, routes the request to the specified 

SJF function> and upon return from the specified 

function, performs common cleanup processing. 

It does the following: 

1. Checks the addressability of the input parameter list, 
validates the parameter list length and version number, 
verifies that the parameter list identifier matches 
the requested function, and verifies that if the 
caller is unauthorized (SJCNUNAU » on), the 
function is a Verify or Terminate request. 

2. If the caller is an authorized caller, issues a 
MODESET to change to key 1. For unauthorized 
callers SJF executes in the key of the caller* 

3. If this is the first invocation of SJF (SJCNST0R=0)» 
obtains the local storage for SJF. 

4. Copies the caller's parameter list into the SJF 
local storage. 

5. If this is the first invocation of SJF (SJCNST0R=0) 
and the caller requests recovery (SJCNNREC= 1 0 1 B), 
establishes a recovery environment. 

6. If this request is not to terminate the scheduler JCL 
facility (SJF) (register 0 not 0), invokes the 
requested SJF function. 

7. Copies the parameter list in the SJF local storage 
into the caller's parameter list. 

8. If cleanup processing was requested by the caller 
(SJCWN0CU='0 1 B), cancels the recovery environment 
(if established) and frees the local storage that 
was obtained. 

9. If the caller is an authorized caller, issues a 
MODESET to change back to the key of the caller. 

10. Returns to the issuer of SJFREQ macro. 

RECOVERY OPERATION: 

The recovery segment (RECOVERY) provides recovery for 

all SJF function routines and the SJF control routine. 

If the error occurred in a SJF function routine 

or the SJF control routine; 

1. Stores diagnostic information in the system diacprostic 
work area (SDHA). 

2. Writes an entry in the LOGREC dataset and if the 
caller is authorized, takes an SVC dump. 

3. Specifies the retry address stored in the 
SJF control workarea to RTM. 

4. Returns to RTM. 

If the error did not occur in a SJF routine or 

a previous ABEND occurred: 

1. Frees the local storage that was obtained. 

2. Specifies that RTM percolate to the caller's 
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IEFSJCNL - MODULE OPERATION (Continued) 


recovery routine. 

3. Returns to RTM. 

If the error occurred in the SJF control routine, the 

retry segment (RECCLEAN) in the SJF control routine 

receives control from RTM and does the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. Copies the parameter list in the SJF local storage 
into the caller's parameter list. 

3. Cancels the recovery environment and frees the 
local storage that was obtained. 

4. If the caller is an authorized caller, issues a 
MQDESET to change back to the key of the caller. 

5. Returns to the issuer of the SJFREQ macro. 
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IEFSJCNL - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJCNL 
RECOVERY 
RECCLEAN 


MESSAGES: None 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJCNL: 

EXIT NORMAL: 

Register 15 = 0 - Request completed successfully. 

(Return code 0 returned from the 
requested function.) 

EXIT ERROR: 

Register 15 = 4 - Did not process request. 

(Return code 4 returned from the 
requested function. See the reason 
code in the parameter list.) 
Register 15 = 8 - Parameter list invalid 
Register 15 = 12 - GETMAIN for local storage failed 
Register 15 = 16 - ESTAE could not be established 
Register 15 = 20 - SJF system error 

ENTRY POINT RECOVERY: 

EXIT NORMAL: 

Register 15 = 4 - Retry to mainline cleanup processing 
EXIT ERROR: 

Register 15 = 0 - Do not retry 
ENTRY POINT RECCLEAN: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJCNL: 

Register 0 = Requested function mask 

Register 1 = Address of a word that contains 

the address of the input 
parameter list 
Registers 2-12 = Undefined 
Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT RECOVERY: 
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XEFSJCNL - DIAGNOSTIC AIDS (Continued) 


Register 

0 

= Indicates whether a SDHA was obtained 

Register 

1 

s Pointer to the SDHA if a SDHA was 



obtained 

Register 

2 

= Pointer to the ESTAE parameter list if 



a SDHA was not obtained 

Registers 

3-13 

« Undefined 

Register 

14 

= Return address to RTM 

Register 

15 

= Entry point address 

ENTRY POINT 

RECCLEAN: 

Register 

0 

= Undefined 

Register 

1 

= Address of the ESTAE parameter list 

Registers 

2-14 

s Undefined 

Register 

15 

8 Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJCNL: 


Register 0 = Requested function mask 

Register 1 = Address of a word that contains 

the address of the input 
parameter list 
Registers 2-12 = Restored 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT RECOVERY: 


Registers 0-13 = Undefined 
Register 14 = Return address 

Register 15 = Retry address 

ENTRY POINT RECCLEAN: 


Register 0 8 Requested function mask 

Register 1 = Address of a word that contains 

the address of the input parameter 
list 

Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 » Entry point address 
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IEFSJCNL - Scheduler JCL Facility (SJF) Control Routine 


STEP 01 


SJF router routine (IEFSJRTE) 


o 

IEFSJCNL 


This module performs common initial 
processing for the SJF functions* routes 
the request to the specified SJF function* 
and upon return from the specified 
function* performs common cleanup 
processing* 


XEFSJCNP 


SJCNP SJCNLEN 


IEFSJCNP 


SJCNID SJCNVERS 


XEFSJCNW 


SJCNNID SJCNCID 


IEFSJCNP 


.SJCNSTOR 


IEFSJCNP 


SJCNID SJCNUNAU 



\ 01 Checks the addressability to 
* 1 — 1 the input parameter list. 


02 Verifies that the parameter 
1 — 1 list identifier matches the 
requested function and that 
the length of the parameter 
list and the version number 
is valid. If not* sets the 
return code to indicate an 
invalid parameter list. 


Verifies that if the caller 
is an unauthorized caller, 
the requested function is 
Verify or Terminate. If not, 
sets the return code to 
indicate an invalid 
parameter list. 



KRETCODE 

t=] 

KRETCODE 
i/i-1 


J \RETC0DE 

1ZD 


RETCODE 


If the caller is an 
authorized caller, issues a 
modeset to change to key 1. 

If this is the first 
invocation of SJF 
(SJCNST0R=0) » obtains the 
local storage for SJF. 


A. Obtains the SJF local storage and 
initializes the SJF control workarea. 


GETLSTOR 


RETCODE 


IEFSJCNP 


J\ 06 Copies the caller's 
i/ 1 — parameter list into 



parameter list 
local storage. 


the SJF 


MEFSJCNM 

IsjcnckeyI 


MEFSJCNP 

ISJCNSTORI 
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ZEFSJCNL - Scheduler JCL Facility (SJF) Control Routine STEP 07 


ZEFSJCNP r-> 

IsJCNNREC I 


RETCODE j-> 


RTM 

o 

RECCLEAN 


ZEFSJCNW 


SJCNCR11 SJCNCR12 




ZEFSJCNP r -> 


SJCNUNAU SJCNLEN 

«■*» 

ZEFSJCNW 


SJCNCKEY | 


r~ 

RETCODE 

r 



ZEFSJCNP 

J 

SJCKNOCU SJCNUNAU 



07 


Zf this is the first 
invocation of SJF 
C SJCNST0R=0) t and the caller 
requested recovery (SJCNNREC 
= ’O'B); establishes a 
recovery environment. 


A. 


Issues an ESTAE to establish a recovery 
environment. 



SETRECV 


08| Routes the request to the 
— 1 specified SJF function 
routine. 



ROUTEREQ: 15 


09 


Retry address from ESTAE for 
cleanup processing 


10 


Zf entering from RTM after 
an ABEND? restores the data 
register; the code register; 
and the save area pointer. 
Sets the return code to 
indicate an SJF system 
error. 



Copies the parameter list 
from the SJF local storage 
into the caller's parameter 
list. 



Zf the recovery environment 
could not be established; if 
cleanup processing was 
requested by the caller; or 
if a system error occurred; 
deletes the recovery 
environment (if established) 
and frees the SJF local 
storage. 


Issues a FREEMAIN macro instruction to 
free the SJF local storage. 


FRELSTOR 


J\RETCODE 
i'l- 


-KZEFSJCNP 

V 


SJCNP 
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XEFSJCNL - Scheduler JCL Facility (SJF) Control Routine STEP 13 



If executing in key 1 for 
authorized callers* issues a 
NODESET to change back to 
the key of the caller. 


14 


Returns to the caller. 




R15 


15 


ROUTEREQ 




j\ 

V 


15 


16 


17 


Routes the specified request 
to the correct SJF function 
routine. 


Zf this request is not to 
terminate the scheduler JCL 
facility (register 0 not 0)* 
invokes the requested SJF 
function routine. 


SJFFUNC 


SJCNP, SJCNW 


Returns to the subroutine 
caller. 




\ / 


-KRETCODE 
1 ' 


RTM 


c> 

RECOVERY 


1 1 

18 

Performs recovery for the 

SJF function routines and 
the SJF control routine. 



Restores the data register* 
the code register* and the 
save area pointer. 


Zf the error occurred while 
the scheduler JCL facility 
was processing and if this 
is the first ABEND 
processed* does the 
following: 
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IEFSJCNL - Scheduler JCL Facility (SJF) Control Routine 


STEP 20A 


IEFSJCNW 


SJCNRTRY 


J \ A. Issues a SETRP macro instruction to 
\/ record the data. 

B. Stores the diagnostic information in the 
SDWA and VRA. 

/I-1\. - 1 ■ " - . 

\|-./ DIAGDATA 


IEFSJCNP 


ISJCNUNAU 


-> C. If the caller is authorized Takes an SVC 
d ump. 

\i-1/| DUMP 1 


IEFSJCNW 


.SJCNRTRY 


IEFSJCNP 


I SJCNUNAU 


IEFSJCNW 


SJCNCKEY 



\l D. Specifies refry to the refry address 
specified in fhe SJF confrol workarea. 


21 If the error did not occur 
1 — 1 while SJF was processing or 
a previous ABEND occurred r 
does the following: 

A. Issues a FREEMAIN macro instruction to 
free the SJF local storage. 

> I I. 


\«-./ FRELSTOR 


B. Specifies percolation to the caller's 
recovery routine. 




22 Returns to RTM. 
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IEFSJDEF - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility Define JDVT Routine 
FUNCTION: 

This module creates a JCL definition vector table 
(JDVT) and adds this table to the JDVT chain anchored 
off the JES control table (JESCT). 

ENTRY POINT: IEFSJDEF 

PURPOSE: See Function 
LINKAGE: CALL 
CALLERS: 

SJF control routine (IEFSJCNL) 

SJF JDVT initialization (IEFSJINT) 


INPUT: 

SJF Define JDVT parameter list IEFSJDFP 


FIELD LENGTH/MASK DESCRIPTION 


SJDFP 

SJDFID 

SJDFVERS 

SJDFFLAG 

SJDFNREC 

SJDFNOCU 

SJDFLEN 

SJDFSTOR 

SJDFREAS 

SJDFJDVT 

SJDFFUNC 

SJDFDFLT 

SJDFRSV1 

SJDF3JDT 

SJDFJLNF 

SJDFSDTN 


Variable 

4 

1 

1 

x*80 1 
x’40' 

2 

4 

4 

8 

1 

x^O* 

1 

2 

2 

8 


SJDFJDTNC*) 8 


Parameter list 
Identifier ‘SJDF' 

Version number 
Function flags 
No recovery 
No cleanup 

Length of parameter list 
Local storage pointer 
Reason code (returned) 

JDVT name 
Flag byte 

This JDVT is the system default 
Reserved 

Number of JDTs for this JDVT 
Number of the JDT that failed to 
LOAD (returned) 

Statement Definition Table (SDT) 
name 

JDT names> number of occurrences 
dependent on SJDF8JDT 


The input to this module also includes the SJF control 
workarea (IEFSJCNH). 


OUTPUT: 

Define JDVT parameter list (IEFSJDFP) 

FIELD LENGTH/MASK DESCRIPTION 

SJDFREAS 4 Reason code (returned) 

EXIT NORMAL: Return to caller. 

EXIT ERROR: Return to caller. 

ENTRY POINT: DEFRETRY 


PURPOSE: 

Performs clean up processing when an ABEND 
occurs during SJF define JDVT processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
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ZEFSJDEP - NODULE DESCRIPTION (Continued) 


OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller. 

EXTERNAL REFERENCES: 

ROUTINES: None 
DATA AREAS* 

XEFSJDFP - SJF Define JDVT Parameter List 
XEFSJCNH - SJF Control Work Area 
IEFSJHTP - SJF Hash Table Build Parameter List 
XEFSJRC - SJF Common Reason Codes 

CONTROL BLOCKS: 

CVT - Communications Vector Table 
JDVT - JCL Definition Vector Table 
JESCT- JES Control Table 


SJF-70 MVS/XA SLL: Sched JCL Fae 


LY28-1740-1 (c) Copyright IBM 1987, 1989 



"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


IEFSJDEF - MODULE OPERATION 


Entry point IEFSJDEF creates a JCL definition 
vector table (JDVT) and adds this table to the 
JDVT chain anchored off the JES control table. 
IEFSJDEF does the following: 

1. If a JDVT already exists with the specified JDVT 
name (SJDFJDVT), sets the return code and reason 
code to indicate that a duplicate JDVT name was 
found. Sets an error switch to end processing. 

2. If this JDVT is to be the system default JDVT 
(SJDFDFLT=ON), checks if there already is a default 
JDVT. If so, sets the return code and reason code 
to indicate that a default JDVT already exists. 
Sets an error switch to end processing. 

3. Obtains storage for the JDVT. If no storage is 
available, sets the reason code to indicate that 
storage was not available for the JDVT. Sets an 
error switch to end processing. 

4. Initializes the JDVT with the control block 
identifier ('JDVT'), length, macro version number, 
and JDVT name. 

5. For each JDT name specified in the parameter list, 
issues a LOAD to get the address of the JDT, 
stores the name and address in the JDVT, and 
issues a DELETE. If a specified JDT is not found, 
sets the reason code to indicate that a JDT was 
not found. Sets an error switch to end processing. 

6. Issues a LOAD to get the address of the Statement 
Definition Table (SDT), and stores the address of 
the SDT in the JDVT, and issues a DELETE. If the 
SDT was not found, then sets the reason code to 
indicate the SDT was not found. Sets an error 
switch to end processing. 

7. If no errors occur, invokes IEFSJHTB to build the 
hash table structure, and adds the JDVT to the 
chain that is anchored off the JESCT. 

8. If there are no JDVTs on the chain, issues a 
MODESET to change to key zero and chains the 
JDVT to the JESCT. Issues a MODESET to change back 
to key one. 

9. Returns to the caller. 

RECOVERY OPERATION: 

If an ABEND occurs in this module, the scheduler 
JCL facility control routine's recovery (entry 
point RECOVERY in IEFSJCNL) receives control from 
RTM. The recovery routine specifies to RTM the 
retry address (DEFRETRY) in the SJF control work 
area. When DEFRETRY (in this module) receives 
control from RTM, it does the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. If storage had already been obtained, then 
frees it. 

3. Returns to the caller. 
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ENTRY POINT NAMES: XEFSJDEF 
DEFRETRY 


MESSAGES: None 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT XEFSJDEF: 

EXIT NORMAL: 

Register IB = 0 - Request completed successfully 
Reason code in SJDFREAS: 

SJRCNOER (0) - Define successful 

EXIT ERROR: 

Register 15 = 4 - Request was not processed. 
Reason code in SJDFREAS (in decimal): 

SJRCNJDT (300) - JDT not found 
SJRCDUPJ (301) - Duplicate JDVT name 
SJRCDFTJ (302) - Default JDVT already exists 
SJRCGETJ (303) - GETMAIN for JDVT failed 
SJRCSUHT (304) - Storage unavailable to build 
hash table structure 
SJRCNSDT (306) - SDT not found 

ENTRY POINT DEFRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 


ENTRY POINT IEFSJDEF: 


Register 

Register 


Registers 

Register 

Register 

Register 


0 = Undefined 

1 = Address of two words that contain the 
address of the input parameter list 
(IEFSJDFP) and the address of the 
control work area (IEFSJCNM). 

2-12 = Undefined 

13 = Address of 18-word save area 

14 = Return address 

15 = Entry point address 


ENTRY POINT DEFRETRY: 


Register 0 = Undefined 

Register 1 » Address of the ESTAE parameter list 

Registers 2-14 « Undefined 

Register 15 s Entry point address 


REGISTER CONTENTS ON EXIT: 
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IEFSJDEF - DIAGNOSTIC AIDS 

ENTRY POINT IEFSJDEF: 


Registers 0-14 = Restored 
Register 15 » Return code 

ENTRY POINT DEFRETRY: 


Registers 0-14 = Restored 
Register 15 = Return code 


(Continued) 
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ZEFSJDEL - NODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility 

Delete SUB Chain Routine 

FUNCTION: 

This module deletes a scheduler work block (SWB) 
chain. 

ENTRY POINT: IEFSJDEL 

PURPOSE: See Function 
LINKAGE: CALL 
CALLERS: 

Scheduler JCL facility (SJF) control 
routine (IEFSJCNL) 

Scheduler JCL facility (SJF) update 
routine (IEFSJUPD) 

INPUT: 

SJF Delete SHB parameter list, IEFSJDLP: 


FIELD 

LENGTH/MASK 

DESCRIPTION 

SJDLP 

32 

Parameter list 

SJDLID 

4 

Identifier 'SJDL 1 

SJDLVERS 

1 

Version number 

SJDLFLAG 

1 

Function flags 

SJDLNREC 

x'80’ 

No recovery 

SJDLNOCU 

x'40* 

No cleanup 

SJDLLEN 

2 

Length of parameter list 

SJDLSTOR 

4 

Local storage pointer 

SJDLREAS 

4 

Reason code (returned) 

SJDLRSV1 

4 

Reserved 

SJDLTOKN 

8 

SWB chain token 

SJDLANBK 

4 

Address of the anchor control 
block or of the first 
control block for a JCL 
statement 

SJDLANCA 

4 

Address of a word pointing to 
a SWB chain or zero 

SJDLFUNC 

1 

Delete Function byte 

SJDLLDEL 

x'80* 

Logically delete indicator 

SJDLRSV2 

3 

Reserved 


The input to this module also includes the SJF control 
workarea (IEFSJCNW). 


OUTPUT: 

Data returned in the input parameter list: 
FIELD LENGTH/MASK DESCRIPTION 


SJDLREAS 4 Reason code 

EXIT NORMAL: Return to caller 
EXIT ERROR: Return to caller 
ENTRY POINT: DELRETRY 
PURPOSE: 

Performs clean up processing when an ABEND 
occurs during SJF delete processing. 

LINKAGE: SYNCH 

CALLERS: RTM 


SJF-74 MVS/XA SLL: Sched JCL Fac 


LY28-1740-1 (c) Copyright IBM 1987, 1989 









"Restricted Materials of IBM” 
Licensed Materials - Property of IBM 


IEFSJDEL - MODULE DESCRIPTION (Continued) 


INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 


ROUTINES: SNA Manager 


DATA AREAS: 
IEFZB502 
IEFZB505 
IEFSJRC 
IEFSJDLP 
IEFSJCNW 
IEFSJSWP 


- Scheduler Work Area Prefix 

- SWA Manager Parameter List 

- SJF Common Reason Codes 

- SJF Delete SWB Parameter List 

- SJF Control Work Area 

- IEFSJSWA parameter list 


CONTROL BLOCKS: 

CVT - Communication Vector Table 
JCT - Job Control Table 

JCTX - Job Control Table Extension 

JESCT - JES Communication Table 

PSA - Prefix Save Area 

SCT - Step Control Table 
SIOT - Step Input Output Table 
SWB - Scheduler Work Block 


SERIALIZATION: 

Holds the local lock during branch entry 
FREEMAIN of a non-SNA SWB. 
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XEFSJDEL - MODULE OPERATION 


Entry point IEFSJDEL deletes a scheduler work 
block (SMB) chain. It does the following: 

1. Calls the IEFSJSWA routine to translate the 
SJF token into the address of the first SWB on 
the chain. Saves the next SWB chain SVA in the 
anchor word pointed to by the second word of the 
SWB token. If an invalid token was found, sets 
the return code and reason code to indicate this. 

2. Determines if this call is for a logical SWB chain 
deletion and if so validates that the SWB chain is 
dynamically created and not already logically 
deleted. Marks the SWB chain logically deleted. 


3. If this call is for physical deletion then 

If the SWB prefix indicates that this is a non- 
SWA SWB (SMBNSMA is on), deletes the SWB from 
subpool 230. Otherwise, calls SWA manager to 
delete the SWBs. 

4. Returns to the caller. 

RECOVERY OPERATION: 

If an abend occurs in this module, the scheduler 
JCL facility control routine's recovery will 
receive control from RTM. The recovery routine 
specifies the retry address in the SJF 
work area (DELRETRY) to RTM. t&en the retry 
segment (DELRETRY) receives control from RTM, 
it does the following: 

1. Sets the return code to indicate an SJF 
system error. 

2. Returns to the caller. 
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ENTRY POINT NAMES: IEFSJDEL 
DELRETRY 


MESSAGES: None 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJDEL: 

EXIT NORMAL: 

Register IS = 0 - Request completed successfully. 
Reason code in SJDLREAS: 

ZERO (0) - Delete of a SWB chain 

EXIT ERROR: 

Register 15 = 4 - Request was not processed. 

Reason code in SJDLREAS (decimal): 

SJRCIVTK (0002) - Invalid SWB token 
SJRCALDL (0700) - SWB Chain already logically 
deleted 

SJRCNDYN (0701) - Only dynamically created SWB 

chains may be logically deleted 

ENTRY POINT DELRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 


ENTRY POINT IEFSJDEL: 


Register 

0 

Register 

1 

Register t 

►-12 

Register 

15 

Register 

14 

Register 

15 

ENTRY POINT 

DELRI 

Register 

0 

Register 

1 

Registers 

2-14 

Register 

15 


Undefined 

Address of two words that contain the 
address of the input parameter list 
(IEFSJDLP) and the address of the 
control work area (IEFSJCNW). 
Undefined 

Address of 18-word save area 
Return address 
Entry point address 


= Undefined 

= Address of the ESTAE parameter list 


Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJDEL: 
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XEFSJDEL - DIAGNOSTIC AIDS (Continued) 


Registers 0*14 = Restored 
Register 15 = Return code 

ENTRY POINT DELRETRY: 


Registers 0*14 = Restored 
Register 15 = Return code 
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IEFSJERS - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility CSJF) Erase 

SWB Parameter Routine 

FUNCTION: 

This module erases SWB information for a specified 
parameter on a JCL keyword or text unit key. 

ENTRY POINT: IEFSJERS 

PURPOSE: See Function 
LINKAGE: CALL 

CALLERS: Scheduler JCL Control Routine (IEFSJCNL) 

INPUT: 

SJF Erase SWB parameter list, IEFSJERP: 


FIELD LENGTH/MASK 

DESCRIPTION 

SJERP 


Parameter list 

SJERID 

4 

Identifier 'SJER' 

SJERVERS 

1 

Version number 

SJERFLAG 

1 

Control flags 

SJERNREC 

X'80 1 

No recovery 

SJERNOCU 

X'40' 

No cleanup 

SJERLEN 

2 

Length of parameter list 

SJERSTOR 

4 

Local storage pointer 

SJERREAS 

4 

Reason code (returned) 

SJERTOKN 


Token identifying SWB chain 

SJERANBK 

4 


SJERANCA 

4 


SJERFUNC 

1 

Function byte 

SJERJOUR 

X'80 1 

Journalling requested 

SJERRSV1 

3 

Reserved 

SJERJDVT 

8 

JDVT name for keyword to erase 

SJERVERB 

8 

Verb 

SJERKEYW 

8 

Keyword 

SJERPARM 

2 

Parameter number 

SJERSUBL 

2 

Sublist element number 

SJERKEY 

2 

Key 

The input to this module also includes the Scheduler 


JCL Facility control workarea (IEFSJCNH). 
OUTPUT: SJF Erase SWB parameter list, IEFSJERP: 
EXIT NORMAL: Return to caller 
EXIT ERROR: Return to caller 
ENTRY POINT: ERSRETRY 
PURPOSE: 

Performs clean up processing when an ABEND 
occurs during SJF Erase's processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 
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XEFSJERS - MODULE DESCRIPTION (Continued) 


EXTERNAL REFERENCES: 

ROUTINES: 

IEFSJEXT - SJF Extract Routine 
IEFXB501 - Journal Write Routine 

DATA AREAS: 

IEFSJERP - SJF Erase SMB Parameter List 
IEFSJCNM - SJF Control Horkarea 
IEFSJSMP - SJF SWA Block routine 
IEFSJEXP - SJF Extract Parameter List 
IEFSJRC - SJF Reason Codes 

CONTROL BLOCKS: SWB - Scheduler Work Block 
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XEFSJERS - MODULE OPERATION 


This module erases SWB information for a specified 
parameter on a JCL keyword or text unit key* 

1* Validates the SWB token passed in using IEFSJSWA 
common include segment. 

2. Validates the key or keyword passed by calling 
SJF Extract (this returns the location of the 
data in the SWB also). 

3. Erases the data in the SWB so that it looks like 
the keyword was never specified. 

4. Returns to the caller. 

RECOVERY OPERATION: 

If an abend occurs in this module* the scheduler JCL 
facility control routine's recovery will receive 
control from RTM. The recovery routine specifies 
the retry address in the SJF workarea (ERSRETRY) 
to RTM. When the retry segment (ERSRETRY) receives 
control from RTM* it does the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. Returns to the caller. 
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IEFSJERS - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: iefsjers 
ERSRETRY 


MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFSJERS: 

EXIT NORMAL: 

Register 15 = 0 - Processing successful 

Reason codes in SJERREAS: 

SJRCNOER (0) - Processing successful 

EXIT ERROR: 

Register 15 = 4 - Request not processed 

Reason codes in SJERREAS (decimal): 

SJRCPRMN (1400) - Subparameter information does not 
exist in the SWB 

Also* the reason codes returned by IEFSJEXT and 
IEFSJSWA. 

ENTRY POINT ERSRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 


ENTRY POINT IEFSJERS: 


Register 0 
Register 1 


Registers 2-12 
Register 13 
Register 14 
Register 15 


Undefined 

Address of a two word parameter list. 
The first word contains the address 
of the Erase SWB parameter list 
(IEFSJERP)> and the second word 
contains the address of the SJF 
control workarea (IEFSJCNN) 

Undefined 

Address of 18 word savearea 
Return address 
Entry point address 


ENTRY POINT ERSRETRY: 


Register 1 = Address of ESTAE parameter list 

Registers 0>2-14 = Undefined 

Register 15 = Entry point address 
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XEFSJERS - DIAGNOSTIC AIDS 

REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJERS: 


Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT ERSRETRYs 


Registers 0-14 = Restored 
Register 15 = Return Code 


(Continued) 
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XEFSJERS - Scheduler JCL Facility (SJF) Erase SWB Parameter Routine STEP 01 


Scheduler JCL Control Routine 
(IEFSJCNL) |—I 


PARAMETERS 


iSJERP SJCNW 




This module erases SWB information for a 
specified parameter on a JCL Keyword or 
> text unit Key. 


XEFSJERS 


XEFSJCNW 


SJCNRTRY SJCNLEVL 
SJCNCSTO SJCNBASE 
SJCNSAVE 



Updates the module level# 
local storage address# base 
register# savearea address 
and retry routine address in 
the SJF control workarea. 


MEFSJCNW 


.SJERTOKN 


02 Validates the SWB token 
1 — 1 passed in 

A. Validates the SWB token 

/I-l\.- 

\|-,/ IEFSJSWA 

SJSWPTR 



SJSWP 

SJSWTOKN 


XEFSJSWP 


ISJSWRETC 


XEFSJEXP 


SJEXP SJEXCID 
SJEXCVER 


XEFSJERP 


SJERJDVT SJERVERB 
SJERKEYW SJERPARM 
SJERSUBL SJERKEY 



\ 03 Validates the key or keyword 
L “ J passed in# and obtains JDT 
information related to the 
parameter. 


A. Calls SJF E xtract 



IEFSJEXT 


SJEXP, SJCNW, 
RETCODEtEXT.RCODE) 



MEFSJEXP 

/\ - 

SJEXP 
SJEXID 
SJEXVERS 
SJEXLEN 
SJEXJDVT 
SJEXVERB 
SJEXKEYW 
SJEXKEY 
SJEXPARM 
SJEXSUBL 


04 If a valid key/keyword 
1 — 1 exists Erases the keyword 


ERASE PARAMETER: 


XEFSJEXP 


SJEXREAS 


J\ A. Otherwise, an invalid Key or keyword was 
j/ passed in 


KXEFSJERP 

' IsJERREAsI 
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IEFSJERS - Scheduler JCL Facility (SJF) Erase SUB Parameter Routine STEP 05 


ZEFSJSUP 

fsjSWRETC 



ZEFSJCNU 


SJCNCSTO SJCNBASE 
SJCNSAVE 



RTM 



ERSRETRY 
- K 


V 


05 


otherwise; the SUB chain 
token is invalid 


06 


Zf entering from RTM after 
an ABEND; restores the data 
register; the code register; 
and the save area pointer. 



Restores the caller's module 
level; local storage 
address; base register; 
savearea address and retry 
routine address in the SJF 
control workarea. 


08 


Returns to the caller. 


tn 


-KIEFSJERP 
1 / 


SJERREAS 


JMEFSJCNW 


SJCNERFP 

SJCNRTRY 

SJCNLEVL 

SJCNCSTO 

SJCNBASE 

SJCNSAVE 


IEFSJSWP 


09 


E RASE J 3 ARAMETE R 


SJSWBLK 




ZEFSUB 


SWBBKID SWBNEXT 


ZEFZB502 


SWAPFX 


ZEFSJEXP 


SJEXSBID 


1 1 

09 

Erase Parameter Subroutine 



Searches through the SUB 
chain for the correct SUB 
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XEFSJERS - Scheduler JCL Facility CSJF) Erase SWB Parameter Routine STEP 11 



ISHBVALID 


XEFSJRC 


SJRCPRMN 


JNLPARM JNLPARMX 


ZEFSJSWP 


SJSWWORK 


13 Znvokes Journal Write 


IEFXB501 


JNLPARM 

JNLSJF 

JNLPPTRX 

JNLPARMX 

JNLBLKAD 


JNLPARM 
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IEFSJEXT - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility (SJF) Extract 

Routine 

FUNCTION: 

This module extracts information from the JCL 
definition table (JDT) associated with a verb, 
a verb and keyword, a verb and key, subparameters 
of a keyword or key, a command, a command and 
operand, and the subparameters of an operand. 

ENTRY POINT: IEFSJEXT 

PURPOSE: See Function 
LINKAGE: CALL 
CALLERS: 

SJF control routine (IEFSJCNL) 

SJF update routine (IEFSJUPD) 

SJF retrieve routine (IEFSJRET) 

INPUT: 

SJF Extract Parameter List (IEFSJEXP) 

FIELD LENGTH/MASK DESCRIPTION 


SJEXP 232 Extract parameter list 

SJEXID 4 Identifier 'SJEX' 

SJEXVERS 1 Version number 

SJEXFLAG 1 Control flags 

SJEXNREC X'80 1 No recovery 

SJEXNOCU X a 40' No cleanup 

SJEXUNAU X'20 1 Unauthorized caller 

SJEXLEN 2 Length 

SJEXSTOR 4 Local storage pointer or zero 

SJEXREAS 4 Reason code 

SJEXJDVT 8 Name of JDVT or zero 

SJEXVERB 8 Verb 

SJEXKEYW 8 Keyword 

SJEXKEY 2 Key 

SJEXPARM 1 Number of subparameter 

SJEXSU8L 1 Number of sublist element 

SJEXRSV4 4 Reserved 

SJEXVFLG 1 Verb flags (returned) 

SJEXVCTL X'80* Control statement 

SJEXRSV3 1 Reserved 

SJEXKSTM 8 Statement type for 

referral (returned) 

SJEXSFLG 1 Keyword flags (returned) 

SJEXSPOL X'BO' Keyword to be spooled 

SJEXKFLG 1 Keyword flags (returned) 

SJEXSYST X'SO 1 System input only 

SJEXKJOB X'40' Keyword on job level 

statement only 

SJEXKSTP X , 20' Keyword on step level 

statement only 

SJEXKREF X'OS* Referral keyword 

SJEXINFO 138 Parameter information 

(Returned) 

SJEXPKEY 2 Key 

SJEXDFLT 1 Default value for key 

SJEXPMLN 1 Maximum length of parameter 

SJEXPBYO 1 Byte offset into SWB 

SJEXPCNL 1 Length of converted 

parameter in the SWB 
SJEXPFL1 1 Parameter flags 

SJEXPBOL X , 80* Choice/boolean data 

SJEXPCHR X , 40* Character data 
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XEFSJEXT - MODULE DESCRIPTION (Continued) 


SJEXPINT 

X'20* 

Integer data 

SJEXPHEX 

X'lO 1 

Hexadecimal data 

SJEXPREF 

x‘08 1 

Reference data 

SJEXFL2 

1 

Parameter flags 

SJEXPSUB 

x'so* 

Sublist data 

SJEXPSFR 

X'40* 

First element of sublist 

SJEXPFL3 

1 

Parameter flags 

SJEXPDDF 

X^O* 

Key default choice specified 

SJEXPMIN 

1 

Minimum length of 
parameter 

SJEXPLNM 

1 

Maximum number of levels 
for name data 

SJEXPLLN 

1 

Maximum length of level 
for name data 

SJEXPHGH 

4 

High range of integer or 
hexadecimal data 

SJEXPLOW 

4 

Low range of integer or 
hexadecimal data 

SJEXPCKC 

72 

Choice data 

SJEXPCHO 

8 

Choice 

SJEXPVAL 

1 

Value of choice 

SJEXSOWN 

8 

SMB owner 

SJEXSBZD 

2 

SMB block ID 

SJEXPFL4 

X 

First character type flag 

SJEXPFAL 

X'80 1 

Any character 

SJEXPFAP 

X'40* 

Alphabetic character 

SJEXPFNU 

X’20* 

Numeric character 

SJEXPFNA 

X'lO* 

National character 

SJEXPFSP 

X'OS* 

Special character 

SJEXPFL5 

1 

Other character type flag 

SJEXPOAL 

X'80* 

Any character 

SJEXPOAP 

X # 40 # 

Alphabetic character 

SJEXPONU 

X^O* 

Numeric character 

SJEXPQNA 

X'XO* 

National character 

SJEXPOSP 

X'08 # 

Special character 

SJEXPFSN 

1 

Number of special 
characters defined for the 
first character 

SJEXPFSA 

16 

Special characters defined 
for the first character 

SJEXPOSN 

1 

Number of special 
characters defined for 
characters other than 
the first 

SJEXPOSA 

16 

Special characters defined 
for characters other 
than the first 

SJEXCKND 

8 

Command 

SJEXOPER 

10 

Operand 

SJEXPOIP 

4 

Address of area to contain 
the operand information 

SJEXPOLN 

1 

Length of area to contain 
the operand information 

SJEXORSV 

3 

Reserved 

SJEXKEMD 

8 

Keyword 

SJEXOXNF 

104 

Operand information 
(returned) 

SJEXOID 

4 

Identifier 

SJEXROPR 

10 

Operand 

SJEXOCHC 

22 

Operand choices 

SJEXOCHA 

(2) 

Operand choice array 

SJEXOCHO 

10 

Operand choice 

SJEXOVAL 

1 

Value of operand choice 

SJEXODLN 

1 

Length of descriptive name 

SJEXODRS 

3 

Reserved 

SJEXODES 

64 

Descriptive name for 


operand 
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XEFSJEXT - MODULE DESCRIPTION (Continued) 


The input to this module also includes the SJF 
control workarea (IEFSJCNW). 

OUTPUT: 

SJF Extract Parameter List (IEFSJEXP) 


FIELD 

LENGTH/MASK 

DESCRIPTION 

SJEXREAS 

4 

Reason code 

SJEXVFLG 

1 

Verb flags 

SJEXKSTM 

8 

Statement type for 
referral 

SJEXKFLG 

1 

Keyword flags 

SJEXSFLG 

1 

Keyword flags 

SJEXKEWD 

8 

Keyword name 

SJEXINFO 

138 

Parameter information 

SJEXOINF 

104 

Operand information 


EXIT NORMAL: Return to caller 
EXIT ERROR: Return to caller 
ENTRY POINT: EXTRETRY 
PURPOSE: 

Performs cleanup processing when an abend 
occurs during the SJF extract routine's 
processing* 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: IEFSJJDV * Scheduler JCL Facility (SJF) Find JDVT 
DATA AREAS: 

IEFSJCNW - Scheduler JCL Facility Control Workarea 
IEFSJEXP - Scheduler JCL Facility Extract Parameter 
List 

IEFSJJDP - Scheduler JCL Facility Find JDVT Parameter 
List 

IEFSJRC - Scheduler JCL Facility Reason Codes 

CONTROL BLOCKS: 

JDT - JCL Definition Table 
JDVT - JCL Definition Vector Table 
SJCDENTY - JDT Command Entry 
SJCDT - JDT Command Hash Table 
SJKWENTY - JDT Keyword Entry 
SJKWT - JDT Keyword Hash Table 
SJKYENTY - JDT Key Entry 
SJKYT - JDT Key Hash Table 
SJOPENTY - JDT Operand Entry 
SJOPT - JDT Operand Hash Table 
SJVBENTY - JDT Verb Entry 
SJVBT - JDT Verb Hash Table 
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IEFSJEXT - MODULE OPERATION 


This module extracts information from the JCL definition 
table (JDT). It does the following: 

1. If the JCL definition vector table (JDVT) name was 
not found on a previous invocation or if the JDVT 
name specified in the parameter list does not match 
the JDVT name found on a previous invocation invokes 
the SJF find JDVT routine (IEFSJJDV) to find 

the JDVT to use* If the JDVT was not found* sets 
the reason code (SJEXREAS) and the return code 
to the reason code and the return code returned 
by find JDVT and returns* 

2. If a verb was specified in the parameter list 
without a keyword or key* uses the hashing 
algorithm to locate the verb that matches the 
verb in the parameter list. If the verb is not 
found* sets the reason code (SJEXREAS) to indicate 
that the verb was not found. 

3. If a verb and a keyword were specified in the 
parameter list (SJEXVERB and SJEXKEYW not zeros)* 
uses the hashing algorithm to locate the verb and 
keyword that match the verb and keyword in the 
parameter list. If the verb and keyword are found* 
places the keyword information and the keyword 
flags from the JDT into the parameter list 

(SJEXKSTM, SJEXSFLG, and SJEXKFLG) and sets the 
JDT token field (SJCNJTKN) to point to the JDT 
verb entry and the JDT keyword entry. If the verb 
or the keyword is not found in the JDT* sets the 
reason code (SJEXREAS) to indicate that the verb 
was not found or the keyword was not found. 

4. If a verb and a key were specified in the 
parameter list (SJEXVERB and SJEXKEY not zeros)* 
uses the hashing algorithm to locate the verb and 
the key that match the verb and key in the parameter 
list. If the verb and the key are found* places the 
keyword information and the keyword flags from ths 
JDT into the parameter list (SJEXKSTM* SJEXSFLG* and 
SJEXKFLG) and sets the JDT token field (SJCNJKN) 

to point to the JDT verb entry and the 
first JDT subparameter entry for the key. 

If the verb or key is not found in the JDT* sets 
the reason code (SJEXREAS) to indicate that 
the verb was not found or the key was not found. 

5. If a command was specified in the parameter list 
without an operand* uses the hashing algorithm to 
locate the command that matches the command in the 
parameter list. If the command is not found* sets 
the reason code (SJEXREAS) to indicate that the 
command was not found. 

6* If a command and operand were specified in the 
parameter list (SJEXCMND and SJEXOPER not zeroes)* 
uses the hashing algorithm to locate the command 
and operand in the parameter list. If the command 
and operand are found* places the keyword 
information* keyword flags* the operand* operand 
descriptor and operand descriptor length into the 
parameter list (SJEXKSTM, SJEXSFLG, SJEXKFLG* 
SJEXROPR* SJEXODES* and SJEXODLN) and sets the 
JDT token field (SJCNJTKN) to point to the JDT 
verb entry for the command and the JDT keyword 
entry for the operand. If the command or the 
operand is not found in the JDT* sets the reason 


SJF-90 MVS/XA $LL: Sched JCL Fac 


LY28-1740-1 (c) Copyright IBM 1987, 1989 



"Restricted Materials of IBM 11 
Licensed Materials - Property of IBM 


IEFSJEXT - MODULE OPERATION (Continued) 


code (SJEXREAS) to indicate that the command 
or the operand was not found. 

7. If a subparameter number was specified in the 
parameter list (SJEXPARM)* finds the 

JDT subparameter entry for the subparamster 
specified by the subparameter number (SJEXPARM) 
and the sublist element number (SJEXSUBL) for the 
keyword* key or operand. If the subparameter 
entry exists in ths JDT* copies the subparameter 
information from the JDT entry into the parameter 
list(SJEXINFO). If the subparameter entry is not 
defined in the JDT for the subparameter specified* 
sets the reason code (SJEXREAS) to indicate 
the subparameter or sublist element is not 
defined for this keyword* key or operand. 

8. Returns to the caller. 

RECOVERY OPERATION: 

If an abend occurs in this module* the scheduler JCL 
facility control routine's recovery (entry point 
RECOVERY in IEFSJCNL) receives control from RTM. 

The recovery routine specifies to RTM the retry address 
(EXTRETRY) in the SJF work area. When EXTRETRY 
(in this module) receives control from RTM* it does 
the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. Returns to the caller. 
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IEFSJEXT - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJEXT 
EXTRETRY 


MESSAGES: None 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJEXT: 

EXIT NORMAL: 

Register 15 = 0 - Request completed successfully 
Reason codes in SJEXREAS: 

SJRCNOER (0) - All requested information returned 

EXIT ERROR: 

Register 15 = 4 - Request was not processed 

Reason codes in SJEXREAS (in decimal): 

SJRCNJDV (4) - JDVT not found 

SJRCNJCH (5) - JDVT chain does not exist 

SJRCNVRB (200) - Verb not found 
SJRCNKWD (201) - Keyword not found 
SJRCNKEY (202) - Key not found 
SJRCNPRM (203) - Subparameter is not defined 
for this keyword or key 

SJRCBKK (204) - Both keyword and key specified 
SJRCNSLE (206) - Sublist element is not defined 
for this keyword 

SJRCNCMD (207) - Command not defined in JDT 
SJRCN0PE (208) - Operand not defined in JDT 
SJRCBVC (209) - Both verb and command specified 
SJRCN0IP (210) - No operand information pointer 
SJRCVAOC (211) - Verb and/or command not specified 

ENTRY POINT EXTRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJEXT: 

Register 0 = Undefined 

Register 1 = Address of 2 words that 

contain the address of 
the input parameter list 
and the control work area 
Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 

Register 14 » Return address 

Register 15 = Entry point address 
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XEFSJEXT - DIAGNOSTIC AIDS (Continued) 


ENTRY POINT EXTRETRY: 

Register 0 = Undefined 

Register 1 = Address of ESTAE parameter list 

Registers 2-14 = Undefined 

Register 15 = Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJEXT: 


Register 0 = Restored 

Register 1 = Address of 2 words that contain the 

address of the input parameter list and 
the control work area. 

Registers 2-12 = Restored 

Register 13 = Address of 18-word savearea 

Register 14 = Return address 

Register 15 = Return code 

ENTRY POINT EXTRETRY: 


Registers 0-14 = Restored 
Register 15 - Return code 
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XEFSJFND - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility 

Find SWB Chain Routine 

FUNCTION: 

- Locates a scheduler work block (SWB) chain at a 
particular level of the scheduler work area (SWA) 
structure. 

- Enables the caller to specify a search for the 
next SWB on the chain from where the last call of 
a SWB chain left off. 

- Enables the caller to specify a starting address 
from which to start the SWB chain searches. 

- Enables the caller to search for a verb and 

label within a control group (CNTL and ENDCNTL). 

- Enables the caller to search for a SIOT or 

to search for the next SIOT or SOT on the chain. 

ENTRY POINT: IEFSJFND 

PURPOSE: See Function 

LINKAGE: CALL 

CALLERS: 

SJF control routine (IEFSJCNL) 

SJF update routine (IEFSJUPD) 

INPUT: 

SJF find SWB parameter list (IEFSJFNP) 


FIELD 

LENGTH/MASK 

DESCRIPTION 

SJFNP 

72 

Parameter list 

SJFNID 

4 

Identifier 'SJFN' 

SJFNVERS 

1 

Version number 

SJFNFLAG 

1 

Function flags 

SJFNNREC 

x'80 1 

No recovery 

SJFNNOCU 

x'40' 

No cleanup 

SJFNLEN 

2 

Length of parameter list 

SJFNSTOR 

4 

Local storage pointer 

SJFNREAS 

4 

Reason code (returned) 

SJFNINFO 


Parameter information 

SJFNFLG2 

1 


SJFNNEXT 

x'80* 

Find next SWB processing 

SJFNCNTL 

x'40 1 

Search for a statement within a 
control group 

SJFNSASP 

x*20* 

Starting address specified 
(Except for verb=DD) 

SJFNIDSW 

2 

Identify the SWB to be found 

SJFNFUN1 

1 

Non-master scheduler flag byte 

SJFNJOB 

x'80* 

Job level 

SJFNCST 

x'40' 

Current step level 

SJFNST 

x'20* 

Step level or procname and step 

SJFNFUN2 

1 

Master scheduler flag byte 

SJFNMSTJ 

x # 80' 

Job level 

SJFNMSTS 

x‘40' 

Current step level 

SJFNFLG3 

1 


SJFNJST 

x'eo* 

Job token indicator 

SJFNSTPN 

8 

Step name 

SJFNCHID 

16 

SWB chain identification 

SJFNVERB 

8 

Verb (Optional if not DD) 

SJFNLABL 

8 

Statement label (Optional) 

SJFNTOKN 

8 

SWB chain token 

SJFNANBK 

4 

Address of control block for 
a JCL statement (JCT> SCT> 



SIOT or SWB) or the address 
of a SWB chain 

SJFNANCA 

4 

Zero or address of a word 


SJF-94 MVS/XA SLL 


Sched JCL Fac 


LY28-1740-1 (c) Copyright IBM 1987> 1989 






"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


ZEFSJFND - MODULE DESCRIPTION (Continued) 


pointing to a SWB chain 

SJFNCNLB B Label on the CNTL statement 

SJFNPRLB 8 Label on the PROC statement 

SJFNSTMT 4 Statement number returned in 

hexadecimal. 

The input to this module also includes the SJF control 
workarea (IEFSJCNW). 

OUTPUT: 

SJF find SMB parameter list (IEFSJFNP) 

FIELD LENGTH/MASK DESCRIPTION 


SJFNREAS 4 Reason code 

SJFNTOKN 8 SWA block token 

SJFNSTMT 4 Statement number 

EXIT NORMAL: Return to caller 

EXIT ERROR: Return to caller 

ENTRY POINT: FNDRETRY 

PURPOSE: 

Performs clean up processing when an ABEND 
occurs during SJF find SMB processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
DATA AREAS: 

IEEBASEA - Master Scheduler Resident Data Area 

IEFZB502 - SWA Prefix 

IEFSJRC - SJF Common Reason Codes 

IEFSJFNP - SJF Find SWB Parameter list 

IEFSJCNW - SJF Control Work Area 

CONTROL BLOCKS: 

CVT - Communications Vector Table 

PSA - Prefix Storage Area 

TCB - Task Control Block 

JCT - Job Control Table 

JSCB - Job Step Control Block 

JCTX - Job Control Table Extension 

SCT - Step Control Table 

SCTX - Step Control Table Extension 

SIOT - Step Input/Output Table 

SWB - Scheduler Work Block 

TABLES: QMAT - SWA Manager Address Table 
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IEFSJFND - MODULE OPERATION 


1. For all requests except those for the master 
scheduler's SNA or when the job token is specified> 
locates the active job step control block (JSCB) via: 

PSA -> TCB -> JSCB -> active JSCB 

The JSCB contains pointers to the JCT (JSCBJCT) and 
to the current SCT (JSCSCT). Processing depends on 
the level and input supplied by the caller: 

For requests when the job token is specified* the 
JSCB is not used to get addressability to the 
Scheduler Work Area (SWA). Addressability to SWA is 
gained through the JCT in the parameter list token. 


1 

1 


i 

1 DATA 

i 

i 

CHAINING STRUCTURE 

1 1 

1 RETURNED TO 1 

1 

LEVEL 

1 SUPPLIED 

i 

TO BE SEARCHED 

1 CALLER 1 

1 1 

1 

Job 

i 

1VerbALabel 

f 

i 

JSCB -> JCT -> 

1 1 
iFor old token:1 

1 


1 

i 

JCTX -> SMB Chain 

ISVA of anchor 1 

1 


1 

i 


Ifor SWB chain.I 

1 


1 

i 


IAddress of a I 

1 


1 

i 


Iword pointing I 

1 


1 

i 


1 to a SWB | 

1 


1 

i 


Ichain. 1 

1 


1 

i 


iFor new token:1 

1 


1 

i 


ISVA of SI'S I 

1 


1 

i 


Ichain. 1 

1 _1 

f 

1 

Current 

1 

1VerbsLabel 

f 

i 

JSCB -> SCT for 

1 1 
(For old token:1 

1 

Step 

I (verb-*=DD) 

i 

current step -> 

ISVA of anchor I 

1 


i 

i 

SWB chain 

Ifor SWB chain.1 

1 


i 

i 


(Address of a 1 

1 


i 

i 


Iword pointing 1 

1 


i 

i 


1 to a SWB I 

1 


i 

i 


Ichain. 1 

1 


i 

i 


iFor new token:I 

1 


i 

i 


ISVA of SIS 1 

1 


i 

i 


Ichain. 1 

1 1 

1 

Step 

|Stepname> 

T 

I 

JSCB -> JCT -> 

1 1 
|For old token:1 

1 


Iverbslabel 

l 

SCT chain -> SCT 

ISVA of anchor I 

1 


1 (verb-=DD) 

l 

for specified 

Ifor SWB chain.I 

1 


1 

l 

stepname -> 

1Address of a I 

1 


1 

l 

SWB chain 

Iword pointing 1 

1 


1 

l 


|to a SWB 1 

1 


1 

I 


Ichain. 1 

1 


1 

l 


(For new token:I 

1 


1 

l 


ISVA of SWB | 

1 


1 

l 


Ichain. 1 

1 1 

f 

1 

Step 

1 

iStepname 

T 

I 

Job token 

1 1 
ISVA of SIOT | 

1 


land verb=DD| 

(indicated by 

jin the first I 

1 


i 

I 

SJFNJST) -> JCT -> 

Iword and the I 

1 


i 

l 

SCT chain -> SCT 

1address of the I 

1 


i 

l 

for specified step 

ISHB chain in 1 

1 


i 

l 

name -> SIOT for 

I the second I 

1 


i 

l 

specified DD block 

1 word. 1 

1 1 

l 

1 

Step 

i 

IStepname 

T 

l 

JSCB -> JCT -> 

i i 

iFor old token:1 

1 


land verb=DD| 

SCT chain -> SCT 

ISVA of SIOT 1 


SJF-96 MVS/XA SLL: Sched JCL Fac 


LY28-1740-1 (c) Copyright IBM 1987, 1989 








"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


ZEFSJFND - MODULE OPERATION (Continued) 
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2. For the requests referring to the master scheduler's 
SWA, the chaining structure is different: 
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3. The input token may be in the old or new format. The 
new format uses the first word of the token to point 
to the SWA block. The second word is not used. For 
the old token format, both words are used. 

For a find next or starting address call to 
SJF Find, the first word of the input token may 
point to the first control block for a JCL statement 
(JCT, SCT, SIOT, or SWB). 

4. If the find next SWA block indicator is on (SJFNNEXT) 
finds the SWA block with the verb and label requested 
at the job level, current step level, or the 
stepname level. 

Locates the SWA block to be returned as follows: 

- If the verb and label are specified, finds the 
first matching SWA block and returns the address 
of its chain. 

- If only the verb is specified (label=0), finds 
the first matching SWA block by its verb and 
returns its label and the address of its chain. 

- If only label is specified (verb=0), finds the 
first matching SWA block by its label and 
returns its verb and the address of its chain. 

- If neither verb nor label is specified (both 
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IEFSJFND - MODULE OPERATION (Continued) 


are zeroes)* returns the verb and label* and the 
address of the SNA block at the level specified. 

5. If the starting address specified indicator is on 
(SJFNSASP) > then SJFNANCA is used for an old token 
as the start address. For a new token SJFNANBK is 
used as the initial starting address. This type of 
search does not support verb=DD invocations. 

6. If a search within a control group is indicated 
(SJFNCNTL) * then the SWB chains will be scanned 
until a CNTL SMB is found. Searching is then done 
the same way as usual. If the group label is zero 
(SJFNCNLB)* then all the control groups at the level 
specified will be searched for a verb and label 
match. The find next function may also be specified 
with a control group search. 

7. The module returns to the caller the address of the 
SWB chain. 

RECOVERY OPERATION: 

If an ABENO occurs in this module* the scheduler JCL 
facility control routine's recovery (entry point 
RECOVERY in IEFSJCNL) receives control from RTM. The 
recovery routine specifies to RTM the retry address 
(FNDRETRY) in the SJF control workarea. When FNDRETRY 
(in this module) receives control* it does the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. Returns to the caller. 
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IEFSJFND - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJFND 
FNDRETRY 


MESSAGES: Nona 


ABEND CODES: 

X'054 1 ( decimal 84) and a reason code of 
100 in register 15 occurs when an SVA 
for the JCT> JCTX, SOT, SCTX, SIOT, or SWB 
can not be translated successfully. 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJFND: 

EXIT NORMAL: 

Register 15 = 0 - Request completed successfully 
Reason code in SJFNREAS: 

SJRCNOER (0) - Find SWB successful 

EXIT ERROR: 

Register 15 = 4 - Request not completed successfully 
Reason code in SJFNREAS (decimal): 

SJRCIVTK (2) - Invalid SWB token 

SJRCNSCH (400) - Specified SWB chain not found 
(set if the verb and label 
are not found) 

SJRCSTEP (401) - Specified STEP or PRQC name 
not found 

SJRCDDNM (402) - Specified DD label not found 
SJRCNBIT (403) - No search bits specified in para list 
SJRCEBIT (404) - Undefined bits specified in para list 
SJRCNGRP (405) - Control group not found 
SJRCNOST (406) - No Step Name specified in para list 
SJRCINAN (407) - Invalid starting address 

specified in parameter list 
SJRCINVJ (408) - Invalid job or step token 

specified in parameter list 

ENTRY POINT FNDRETRY: 

EXIT ERROR: 

Register 15 = 20 (decimal) - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJFND: 

Register 0 = Undefined 

Register 1 = Address of two words that contain the 
address of the input parameter list 
(IEFSJFNP) and the address of the 
control work area (IEFSJCNH). 
Registers 2-12 = Undefined 
Register 13 = Address of 18-word save area 
Register 14 = Return address 
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ZEFSJFND - DIAGNOSTIC AIDS (Continued) 


Register 15 = Entry point address 

ENTRY POINT FNDRETRY: 

Register 0 = Undefined 

Register 1 = Address of the ESTAE parameter list 

Registers 2-14 = Undefined 

Register 15 - Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJFND: 


Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT FNDRETRY: 


Registers 0-14 = Restored 
Register 15 = Return code 
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XEFSJ6ET - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility (SJF) Get SUB Chain 

Routine 

FUNCTION: 

This module copies selected keywords from a SMB 
chain in text unit format into a storage area 
specified by the caller. The keywords obtained 
are those keywords whose JDT flags match 
the qualifier flags set in the input parameter 
list. 

ENTRY POINT: IEFSJGET 

PURPOSE: See Function 
LINKAGE: CALL 

CALLERS: SJF control routine (IEFSJCNL) 


INPUT; 

Get SKB parameter list, IEFSJGEP: 
FIELD LENGTH/MASK 


SJGEP 

SJGEID 4 

SJGEVERS 1 

SJGEFLAG 1 

SJGENREC x'80 1 
SJGENOCU x^O' 
SJGELEN 2 

SJ6EST0R 4 

SJGEREAS 4 

SJGETOKN 8 

SJGEANBK 4 


SJGEANCA 4 

SJGEQUAL 2 

SJGEPOSI 1 

SJGESPL x^O' 

SJGENEGA 1 

SJGENSPL x'80' 

SJGERSV2 2 

SJGESM8A 4 

SJGEALEN 2 

SJGERSV4 2 

SJGEJDVT 8 

The input to this module also includes the SJF 
control workarea IIEFSJCNN). 

OUTPUT: 

Data returned in the get SMB parameter list, IEFSJGEP: 
SJGEREAS = Reason code 
EXIT NORMAL: Return to caller 
EXIT ERROR: Return to caller 
ENTRY POINT: GETRETRY 


DESCRIPTION 


Parameter list 
Identifier 'SJGE 1 
Version number 
Control flags 
No recovery 
No clean up 

Length of parameter list 
Local storage pointer 
Reason code (returned) 

SWB token 

Address of anchor control block 
or of the first control block 
for a JCL statement 
Address of word pointing to a 
SKB chain or zero 
Bit qualifiers for SMB 
Attributes requested 
Keywords spooled for output 
processing 

Attributes not requested 
Keywords not spooled for output 
processing 
Reserved 

Address of area to copy 
keyword data 

Length of keyword data area 

Reserved 

JDVT name 
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PURPOSE: 

Performs clean up processing when an abend 
occurs during SJF get's processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 

EXIT NORMAL: Return to caller 
EXIT ERROR: Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: 

IEFSJJDV - SJF Find JDVT Routine 
IEFSJRET - SJF Retrieve Routine 

DATA AREAS: 

IEFSJCNW - SJF Control Horkarea 

IEFSJRC - SJF Reason Codes 

IEFJDT - JCL Definition Table 

IEFJDVT - JCL Definition Vector Table 

IEFSJGEP - SJF Get SWB Parameter List 

IEFSJJDP - SJF Find JDVT Parameter List 
IEFSJREP - SJF Retrieve Parameter List 
IEFSJPFX - NJE Prefix 
IEFSJSNP - IEFSJSHA Parameter List 
IEFZB502 - SNA Prefix 

CONTROL BLOCKS: 

CVT - Communication Vector Table 
IEFAJCTB - Job Control Table 
IEFASCTB - Step Control Table 
IEFASIOT - Step Input/Output Table 
IEFJCTX - Job Control Table Extension 
IEFJESCT - JES Communication Table 
IEFSWB - Scheduler Work Block 

SERIALIZATION: 

No locks or resources are obtained by this 
module. 
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IEFSJGET copies the Keywords from a SWB chain 
whose JDT flags match the qualifier flags in 
the input parameter list. The routine places 
the keywords in a storage area provided by 
the caller. IEFSJGET performs the 
following functions: 

' 1. Gets the address of the SWB chain by using the 
IEFSJSMA procedure to interpret the SWB token and 
verify that it is pointing to a valid SWB chain. If 
validation is not successful* sets register 15 to 
4* sets a reason code of SJRCIVTK (2) in SJGEREAS* 
and returns. 

2. Ensures that a keyword data area address (SJGESWBA) 
was specified in the parameter list. 

If SJGESWBA is zero> sets register 15 to 4* sets a 
reason code of SJRCGSWB (1000) in SJGEREAS* and 
returns• 

3. The length of the keyword data area (SJGEALEN) is 
checked to make sure it is non-zero and large 
enough to contain at least the NJE prefix. If these 
conditions are not met* sets a reason code of 
SJRCGLEN (1002) in SJGEREAS* and returns. 

4. If the SWB chain address has changed 

from the last invocation of IEFSJGET or there was no 
previous invocation* then this module determines 
whether the JDVT pointer in the SJF control workarea 
is different than was specified in the input parameter 
list. If the JDVT name is different* invokes SJF find 
JDVT to obtain the JDVT and its associated JDTs that 
correspond to the JDVT name specified by the caller. 

5. Obtains the verb name from the SWB chain specified by 
the caller. This verb name is used as a search 
argument through each of the JDTs. (Mote: The same 
verb may be specified multiple times in the same 

JDT or in one or more JDTs). Each time IEFSJGET finds 
a match in the JDT for the verb name* it counts the 
keywords and subparameters and keeps a total of the 
sizes of subparameter data. This is used to 
determine the maximum amount of storage needed for the 
keyword list (SJREKWDL) and text unit area (SJREAREA) 
passed to the SJF retrieve routine. 

6. If keywords were found in the JDTs for the verb 
specified* obtains storage for the keyword list 

and text unit area. Makes a second pass for the verb 
name through the JDTs in order to move the 
keywords for each verb entry into the keyword list* 
omitting any duplicate keywords found. If a 
match on the verb name was found in the JDTs* 
but no keyword entries were found for the verb* 
builds a NJE prefix with no keyword data. 

7. If keywords were found* invokes the SJF retrieve 
routine to obtain text mit information for the 
keywords specified in the keyword list. If SJF 
retrieve was successful* copies an NJE prefix and text 
unit information for those keywords found on the SWB 
chain into the area speicified by the caller 
(SJGESWBA). If not enough storage is available to 
contain all the keyword text unit data* sets 

, register 15 to 4* sets a reason code of SJRCM0RE (1001) 
in SJGEREAS* and returns. Another invocation of SJF 
get will be necessary to obtain the remainder of the 


LY28-1740-1 (c) Copyright IBM Corp. 1987* 1989 


Method of Operation SJF-103 



“Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


IEF3J6ET - MODULE OPERATION (Continued) 


text unit data. 

8. If this is a multiple invocation to obtain the 
remainder of text unit data* the address of the keyword 
list* the index into the keyword list* the index 

into the text unit pointer list* the number of 
parameters already processed* and the amount of 
the text unit already processed exists in the SJF 
control workarea. The copying of text unit data 
continues from where it left off in the previous 
invocation. 

9. Returns to caller. 

RECOVERY OPERATION: 

If an abend occurs in this module* the Scheduler 
JCL Facility control routine's (IEFSJCNL) recovery 
(entry point RECOVERY in IEFSJCNL) receives control 
from RTM. The recovery routine specifies to RTM 
the retry address (GETRETRY) in the SJF control 
workarea. When GETRETRY (in this module) receives 
control from RTM* it does the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. Determines if any storage has been obtained via a 
GETMAIN macro and frees it if it has not already 
been freed. 

3. Returns to caller. 
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ENTRY POINT NAMES: IEFSJGET 
GETRETRY 


MESSAGES: None 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJGET: 

EXIT NORMAL: 

Register 15 = 0 - Processing successful 

Reason Code in SJGEREAS = 

SJRCNOER CO) - Processing successful 

EXIT ERROR: 

Register 15 = 4 - Request cannot be processed 

Reason Codes in SJGEREAS = 

SJRCIVTK (2) - Invalid SWB chain address 

SJRCGSMB (1000) - Invalid SWB get keyword 
area address 

SJRCMORE (1001) - More keyword data to 
be obtained 

SJRCGLEN (1002) - Invalid length for 
keyword data area 

SJRCGEGM (1003) - Unable to GETMAIN storage 
for keyword list or text 
or text mit area 

ENTRY POINT GETRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJGET: 

Register 0 - Undefined 

Register 1 = Address of a two word parameter list* 

The first word contains the address of 
the get SWB parameter list (IEFSJGEP) 
and the second word contains the 
address of the SJF control 
workarea (IEFSJCNW) 

Registers 2-12 * Undefined 

Register 13 = Address of an 18-word savearea 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT GETRETRY: 

Register 1 = Address of ESTAE parameter list 

Registers 0,2-14 = Undefined 


LY28-1740-1 (c) Copyright IBM Corp. 1987, 1989 


Method of Operation SJF-105 



"Restricted Materials of IBM” 
Licensed Materials - Property of IBM 


IEFSJ6ET - DIAGNOSTIC AIDS (Continued) 

Register 15 = Entry point address 

REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJGET: 


Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT GETRETRY: 


Registers 0-14 = Restored 

Register 15 = Return code 
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IEFSJHTB - MODULE DESCRIPTION 

DESCRIPTIVE NAME: Scheduler JCL Facility ISJF) Hash 

Table Build Routine 


FUNCTION: 

This module builds hash tables to provide access to 
information in the JDT's given a verb and a keyword, 
a verb and a key, or a command and an operand. 

ENTRY POINT: IEFSJHTB 

PURPOSE: See Function 
LINKAGE: CALL 

CALLERS: SJF define JDVT (IEFSJDEF) 


INPUT: 

SJF Hash Table Build Parameter List IIEFSJHTP) 


FIELD 

LENGTH/MASK 

DESCRIPTION 

SJHTP 

20 

Parameter list 

SJHTID 

4 

Identifier ’SJOT' 

SJHTVERS 

1 

Version number 

SJHTFLAG 

1 

Function flags 

SJHTNREC 

X'80' 

No recovery 

SJHTNOCU 

X'40 1 

No cleanup 

SJHTLEN 

2 

Length of parameter list 

SJHTSTOR 

4 

Local storage pointer 

SJHTREAS 

4 

Reason code (returned) 

SJHTJDVP 

4 

Pointer to the JDVT 

SJHTCID 

C'SJHT' 

Identifier 

SJHTCVER 

X'01' 

Current version of macro 

The input to 

this module also includes the SJF 

control work 

area (IEFSJCNW) 

• 

OUTPUT: 

SJF hash table build parameter list (IEFSJHTP) 

FIELD 

LENGTH/MASK 

DESCRIPTION 

SJHTREAS 

4 

Reason code 


The hash table structure consisting of the hash 
tables and entries is also output. 

EXIT NORMAL: Return to caller 

EXIT ERROR: Return to caller 

ENTRY POINT: HTBRETRY 

PURPOSE: 

Performs cleanup processing when an abend 
occurs during the SJF hash table build 
routine's processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: None 

OUTPUT: None 
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EXIT NORMAL: 


EXIT ERROR: Return to caller 


EXTERNAL REFERENCES: 

ROUTINES: None 
DATA AREAS: 

IEFSJCNN - Scheduler JCL Facility Control Horkarea 
IEFSJHTP - Scheduler JCL Facility Hash Table Build 
Parameter List 

IEFSJRC - Scheduler JCL Facility Reason Codes 


CONTROL BLOCKS: 


JDT 

- JCL 

JDVT 

- JCL 

SJCDENTY 

- JDT 

SJCDT 

- JDT 

SJKWENTY 

- JDT 

SJKWT 

- JDT 

SJKYENTY 

- JDT 

SJKYT 

- JDT 

SJOPENTY 

- JDT 

SJOPT 

- JDT 

SJVBENTY 

- JDT 

SJVBT 

- JDT 


Definition Table 
Definition Vector Table 
Command Entry 
Command Hash Table 
Keyword Entry 
Keyword Hash Table 
Key Entry 
Key Hash Table 
Operand Entry 
Operand Hash Table 
Verb Entry 
Verb Hash Table 


TABLES: 

SJVBT - JDT Verb Hash Table 
SJCDT - JDT Command Hash Table 
SJKWT - JDT Keyword Hash Table 
SJKYT - JDT Key Hash Table 
SJOPT - JDT Operand Hash Table 
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This module builds hash tables to provide access to 
information in the JDT's. It does the following: 

1* Builds the verb hash table and the command hash 
table for the JDT*s defined in the JDVT. 

2. For each verb in the JDTs, does the following: 

a* If a verb entry does not exist, builds and 

initializes a verb entry, a keyword hash table, 
and a key hash table. Anchors the keyword 
hash table and the key hash table in the verb 
entry. Anchors the verb entry at the index 
into the verb hash table found by using the 
hashing algorithm or at the end of the verb 
entry synonym chain. 

b. For each keyword specified for the verb does 
the following: 

- If a keyword entry does not exist, builds 
and initializes a keyword entry. Anchors 
the keyword entry at the index info the 
keyword hash table found by using the 
hashing algorithm or at the end of the 
keyword entry synonym chain. If a keyword entry 
already exists, issues abend x'054' with 

a reason code of 04. 

- For each command: if a command entry does 
not exist, builds and initializes a command 
entry and an operand hash table. Anchors the 
operand hash table in the command entry. 

Anchors the command entry at the index 

into the command hash table found by using 
the hashing algorithm or at the end of the 
command entry synonym chain. 

- For each operand, its valid abbreviations, 
and each operand hash table: if an operand 
entry does not exist, builds and initializes 
an operand entry. Anchors the operand entry 
at the index into the operand hash table 
found by using the hashing algorithm or at 
the end of the operand entry synonym chain. 

If an operand entry exists for a different 
keyword, issues abend x'054' with a reason 
code of 06. 

- For each key: if a key entry does not exist, 
builds and initializes a key entry. Anchors 
the key entry at the index into the key hash 
fable found by using the hashing algorithm 
or at the end of the key entry synonym 
chain. If a key entry exists for a 
different keyword, issues abend x'054* with 
a reason code of 05. 


5. If any errors occur in obtaining storage before the 
hash table structure is in a usable state, frees all 
of the storage that was previously obtained. 

4. If the structure can be used in its current state, 
anchors the verb hash- table and command hash table 
in the JDVT and frees any remaining storage. 

5* Returns to the caller. 
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RECOVERY OPERATIONS 

An ESTAE routine exists for IEFSJHTB. If an abend occurs 
in this module, the Scheduler JCL facility control routine's 
recovery (entry point RECOVERY in IEFSJCNL) receives control 
from RTM. The recovery routine specifies to RTM the retry 
address (HTBRETRY) in the SJF work area. When HTBRETRY 
(in this module) receives control from RTM, it does 
■the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. If the structure can not be used in its current 
state, frees all storage obtained. 

3. If the structure can be used, anchors the verb 
hash table and the command hash table in the JDVT 
and frees any remaining storage. 

4. Returns to the caller. 


SJF-110 MVS/XA SLL: 


Sched JCL Fac 


LY28-1740-1 (c) Copyright IBM 1987, 1989 



“Restricted Materials of IBM“ 
Licensed Materials - Property of IBM 

IEFSJHTB - DIAGNOSTIC AIDS 


ENTRY POINT NAMES; IEFSJHTB 
HTBRETRY 


MESSAGES: None 


ABEND CODES: 

Abend code hex 054 (dec 084) and a reason 
code of 4> 5> or 6 in register 15 occurs 
when an error in the JOTs is detected. 


WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFSJHTB: 

EXIT NORMAL: 

Register 15 = 0 - Request completed successfully 
Reason codes in SJHTREAS: 

SJRCNOER (0) - Hash table build successful 

EXIT ERROR: 

Register 15 = 4 - Request not processed 
Reason codes in SJHTREAS: 

SJRCSUHT (304) - Storage unavailable for hash tables 

ENTRY POINT HTBRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 


ENTRY POINT 

IEFSJHTB: 

Register 

0 

= Undefined 

Register 

1 

= Address of 2 words that 



contain the address of 



the input parameter list 
and the control workarea 

Register 

2-12 

= Undefined 

Register 

13 

= Address of 18-word save area 

Register 

14 

= Return address 

Register 

15 

= Entry point address 

ENTRY POINT 

HTBRETRY: 

Register 

0 

= Undefined 

Register 

1 

= Address of ESTAE parameter list 

Register 

2-14 

= Undefined 

Register 

15 

» Entry point address 


REGISTER CONTENTS ON EXIT: 
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XEFSJHTB - DIAGNOSTIC AIDS (Continued) 


ENTRY POINT IEFSJHTB: 


Register 0 = Restored 

Register 1 = Address of 2 words that 

contain the address of 
the input parameter list 
and the control workarea 
Register 2-12 = Restored 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Return code 

ENTRY POINT HTBRETRY: 


Register 0-14 = Restored 
Register 15 = Return code 
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ZEPSJZNT - MODULE DESCRZPTZON 


DESCRZPTZVE NAME: Scheduler JCL Paciltiy 

JDVT Znitialization Routine 

FUNCTZON: 

This module builds the system default JCL definition 
vector table and the hash table structure by supplying 
information in the SJF define JDVT parameter list 
CIEFSJDFP) and invoking the SJF define JDVT routine 
to process the request. 

ENTRY POZNT: IEFSJZNT 

PURPOSE: See Function 
LINKAGE: CALL 

CALLERS: SJF control routine (IEFSJCNL) 


INPUT: 

JDVT initialization parameter list, IEFSJINP: 


FIELD LENGTH/MASK 


SJINP 

SJXNID 4 

SJINVERS 1 

SJINFLAG 1 

SJINNREC x *80 1 
SJINNOCU x'40' 
SJINLEN 2 

SJINSTOR 4 

SJINREAS 4 


DESCRIPTION 


Parameter list 
Identifier 'SJIN' 

Version number 
Control flags 
No recovery 
No clean up 

Length of parameter list 
Local storage pointer 
Reason code (returned) 


The input to this module also includes the SJF 
control workarea (IEFSJCNW). 


OUTPUT: 

Data returned in the SJF JDVT initialization 
parameter list* IEFSJINP: 

SJINREAS - Reason code 

EXIT NORMAL: Return to caller 

EXIT ERROR: Return to caller 

ENTRY POINT: ZNTRETRY 

PURPOSE: 

Performs clean up processing when an abend 
occurs during SJF JDVT initialization 
processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 
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XEFSJINT - MODULE DESCRIPTION (Continued) 


ROUTINES: 

IEFSJDEF - SJF Define JDVT Routine 
IEFJSIMN - System Initialization Message 
Writer 

DATA AREAS: 

IEFSJCNN - Scheduler JCL Facility Control Workarea 
IEFSJDFP - Scheduler JCL Facilty Define JDVT 
Parameter List 

IEFSJINP - Scheduler JCL Facility JDVT Initialization 
Parameter List 

IEFSJRC - Scheduler JCL Facilty Reason Codes 
CONTROL BLOCKS: 

CVT - Communications Vector Table 

IEFJESCT - JES Control Table 
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XEFSJXNT - MODULE OPERATION 


IEFSJINT builds the system default JDVT. It does the 
following: 

1. Fills in the SJF define JDVT parameter list. 

2. Invokes SJF define JDVT routine (IEFSJDEF) to 
build the system default JDVT. 

3. Checks that a JDVT was successfully built by 
IEFSJDEF and that the hash table structure was 
successfully built by IEFSJHTB. If the request 
could not be processed* IEFSJINT determines the 
type of error by checking the reason code and issues 
the corresponding version of message IEF818E to 

the operator. If an unexpected return code 
or reason code was returned by IEFSJDEF* 

IEFSJINT issues an abend code of 054 and 
a reason code of 3 in register 15. 

4. Returns to the caller. 

RECOVERY OPERATION: 

If an abend occurs in this module* the scheduler 
JCL facility control routine's recovery (entry 
point RECOVERY in IEFSJCNL) receives control 
from RTM. The recovery routine specifies to RTM 
the retry address (INTRETRY) in the SJF workarea. 

When INTRETRY (in this module) receives control 
from RTM* it does the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. Returns to the caller. 
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IEFSJXNT - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJINT 
INTRETRY 


MESSAGES: 

IEF818E JCL USAGE LIMITED 
IEF818E JCL USAGE LIMITED 
IEF818E JCL USAGE LIMITED 

IEF818E JCL USAGE LIMITED 


MODULE name NOT FOUND 

STORAGE UNAVAILABLE 

UNABLE TO SET UP RECOVERY 
ENVIRONMENT 

SYSTEM ERROR IN JCL 
INITIALIZATION 


ABEND CODES: 

Abend code X'054' (dec 084) and a reason 
code of 3 in register 15 occurs when an 
unexpected reason code or return code is 
returned from the SJF Define JDVT routine. 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJINT: 

EXIT NORMAL: 

Register 15 = 0 - Processing successful 

Reason Code in SJINREAS = 

SJRCNOER (0) - Processing successful 

EXIT ERROR: 

Register 15 = 4 - Request cannot be processed 

Reason Codes in SJINREAS = 

SJRCNJDT (300) - JDT not found 
SJRCGETJ (303) - Getmain for JDVT failed 
SJRCSUHT (304) - Storage unavailable to build hash 
table structure 

SJRCNSDT (306) - Statement Definition Table (SDT) 
not found 

ENTRY POINT INTRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJINT: 

Register 0 = Undefined 

Register 1 = Address of a two word parameter 

list. The first word contains the 
address of the JDVT initialization 
parameter list (IEFSJINP) and the 
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IEFSJINT - DIAGNOSTIC AIDS (Continued) 


second word contains the address 
of the SJF control workarea 
CIEFSJCNW). 

Registers 2-12 = Undefined 

Register 13 = Address of an 18-word savearea 
Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT INTRETRY: 

Register 1 = Address of ESTAE parameter list 

Registers 0>2-14 = Undefined 

Register 15 = Entry Point Address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJINT: 


Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT INTRETRY: 


Registers 0-14 = Restored 

Register 15 = Return code 
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XEFSJJDV - NODULE DESCRIPTION 


DESCRIPTIVE NANE: Scheduler JCL Facility (SJF) Find JDVT 

Routine 

FUNCTION: 

This module locates a JCL definition vector table (JDVT) 
identified by one of the following: 

1. A JDVT name specified in the input parameter list 
2* The JDVT specified in the JCTX 
3. The default JDVT for the system* 

ENTRY POINT: IEFSJJDV 

PURPOSE: See Function 

LINKAGE: CALL 

CALLERS: 

SJF control routine (IEFSJCNL) 

SJF extract routine (IEFSJEXT) 

INPUT: 

SJF Find JDVT parameter list* IEFSJJDP: 


FIELD LENGTH/MASK 

DESCRIPTION 

SJJDP 

24 

Parameter list 

SJJDID 

4 

Identifier 'SJJD' 

SJJDVERS 

1 

Version number 

SJJDFLAG 

1 

Control flags 

SJJDNREC 

X^O* 

No recovery 

SJJDNOCU 

x'40' 

No clean up 

SJJDLEN 

2 

Length of parameter list 

SJJDSTOR 

4 

Local storage pointer 

SJJDREAS 

4 

Reason code (returned) 

SJJDJDVT 

8 

Name of JDVT or zero 


The input to this module also includes the Scheduler 
JCL Facility control workarea (IEFSJCNH). 

OUTPUT: 

SJF Find JDVT parameter list* IEFSJJDP: 

SJJDJDVT = JDVT name (if zero on entry) 

SJJDREAS = reason code 

EXIT NORMAL: Return to caller 

EXIT ERROR: Return to caller 

ENTRY POINT: JDVRETRY 

PURPOSE: 

Performs cleanup processing when an ABEND 
occurs during SJF find JDVT's processing* 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 
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IEFSJJDV - MODULE DESCRIPTION (Continued) 


EXTERNAL REFERENCES: 

ROUTINES: None 
DATA AREAS: 

IEFSJCNM - Scheduler JCL Facility Control Norkarea 
IEFSJJDP - Scheduler JCL Facility Find JDVT 
Parameter List 

IEFSJRC - Scheduler JCL Facility Reason Codes 
IEFZB502 - SWA Prefix 

CONTROL BLOCKS: 

CVT - Communications Vector Table 

JCT - Job Control Table 

JCTX - Job Control Table Extension 

JDVT - JCL Definition Vector Table 

JESCT - Job Entry Subsystem Control Table 

JSCB - Job Step Control Table 

PSA - Prefixed Save Area 

TCB - Task Control Block 

SERIALIZATION: 

No locks or resources are obtained by this 
module. 
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XEFSJJDV - MODULE OPERATION 


IEFSJJDV locates a JDVT that is either specified in the 
input parameter list» specified in the JCTX* or the 
default JDVT for the system. It performs the 
following functions: 

1. If a JDVT chain does not exist off the JESCT* 
sets a reason code of SJRCNJCH (5) in SJJDREAS and 
returns to the caller. 

2. Otherwise> checks the input parameter list for a 
specified JDVT name (SJJDJDVT). If a JDVT name is 
specified* searches the chain of JDVTs* anchored 
off the JESCT* for a JDVT with a matching name. 

3. If a JDVT name is not specified in the input 
parameter list (SJJDJDVT = 0)> then: 

- If a JDVT name exists in the job control 
table extension (JCTXJVTN not 0)* 
searches the JDVT chain> anchored off the 
JESCT* for a JDVT with a matching name. 

- If there is no JDVT name in the JCTX* searches 
the JDVT chain* anchored off the JESCT* for the 
system default JDVT (bit JDVTDFLT is on). 

4. If a JDVT was located* returns the JDVT name in 
SJJDJDVT in the parameter list and stores the JDVT 
address in the SJF control workarea (SJCNUSEJ). 

5. If the JDVT was not located* sets a reason code of 
SJRCNJDV (4) in SJJDREAS to indicate that condition. 

6. Returns to the caller. 

RECOVERY OPERATIONS 

If an ABEND occurs in this module* the scheduler JCL 
facility control routine's recovery (entry point 
RECOVERY in IEFSJCNL) receives control from RTM. 

The recovery routine specifies to RTM the retry address 
(JDVRETRY) in the SJF control workarea. When JDVRETRY 
(in this module) receives control from RTM* 
it does the following: 

1. Sets the return code to indicate an SJF system 
error. 

2. Returns to the caller. 
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IEFSJJDV - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJJDV 
JDVRETRY 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFSJJDV: 

EXIT NORMAL: 

Register 15 = 0 - Processing successful 

Reason codes in SJJDREAS: 

SJRCNOER (0) - Processing successful 

EXIT ERROR: 

Register IS = 4 - Request cannot be processed 

Reason codes in SJJDREAS: 

SJRCNJDV (4) - The JDVT does not exist 
SJRCNJCH (5) - The JDVT chain does not exist. 

ENTRY POINT JDVRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJJDV; 

Register 0 = Undefined 

Register 1 = Address of a two word parameter list. 

The first word contains the address 
of the Find JDVT parameter list 
(IEFSJJDP) > and the second word con¬ 
tains the address of the Scheduler JCL 
Facility control workarea (IEFSJCNW) 
Registers 2-12 = Undefined 
Register 13 = 18 word savearea 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT JDVRETRY: 

Register 1 = Address of ESTAE parameter list 

Registers 0,2-14 = Undefined 
Register 15 = Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJJDV: 
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Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT JDVRETRY: 


Registers 0-14 = Restored 
Register 35 = Return Code 


(Continued) 
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IEFSJPUT - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility (SJF) Put SMB Chain 

Routine 

FUNCTION: 

IEFSJPUT rebuilds a SMB chain from SWB keyword 
data found in text unit format. 

ENTRY POINT: IEFSJPUT 

PURPOSE: See Function 
LINKAGE: CALL 

CALLERS: SJF control routine (IEFSJCNL) 


INPUT: 

Put SMB parameter list, IEFSJPUP: 


FIELD LENGTH/MASK DESCRIPTION 


SJPUP 

SJPUID 4 

SJPUVERS 1 

SJPUFLAG 1 

SJPUNREC x'80' 
SJPUNOCU x'40 1 
SJPULEN 2 

SJPUSTOR 4 

SJPUREAS 4 

SJPUTOKN 8 

SJPUANBK 4 


SJPUANCA 4 

SJPUSMBA 4 

SJPUALEN 2 

SJPUFLG2 2 

SJPUNSMA x'80 1 
SJPUMARN x'40' 


SJPURSV2 4 

SJPUJDVT 8 


Parameter list 
Identifier 'SJPU' 

Version number 
Control flags 
No recovery 
No clean up 

Length of parameter list 
Local storage pointer 
Reason code (returned) 

SWB token 

Address of anchor control block 
or of the first control block 
for a JCL statement 
Address of word pointing to a 
SWB chain or zero 
Address of keyword data area 
Length of area containing 
keyword data 
Flags 

SWBs to be built in non-SWA 
Continue processing after 
an ignorable error is 
encountered. Ignorable 
errors are due to changes in 
the JDTs from release to 
release 
Reserved 
JDVT name 


The input to this module also includes the SJF 
control workarea (IEFSJCNM). 


OUTPUT: 

Put SWB parameter list> IEFSJPUP: 
SJPUREAS = Result reason code 
EXIT NORMAL: Return to caller 
EXIT ERROR: Return to caller 
ENTRY POINT: PUTRETRY 


PURPOSE: 

Performs clean up processing when an abend 
occurs during SJF put's processing. 

LINKAGE: SYNCH 
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XEFSJPUT - MODULE DESCRIPTION (Continued) 


CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

SJF Update Routine (IEFSJUPD) 

SJF Write SNB Routine (IEFSJHRT) 

DATA AREAS: 

IEFSJCNN - SJF Control WorKarea 
IEFSJRC - SJF Reason Codes 
IEFSJPFX - NJE Prefix 
IEFSJPUP - SJF Put Parameter List 
IEFSJRUP - SJF Update Parameter List 
IEFSJSWP - IEFSJSWA Parameter List 
IEFSJNRT - SJF Write Parameter List 
IEFZB502 - SWA Prefix 

IEFZB4D1 - Dynamic Allocation Text Unit Pointer List 
CONTROL BLOCKS: 

CVT - Communication Vector Table 

IEFAJCTB - Job Control Table 
IEFASCTB - Step Control Table 
IEFASIOT - Step Input/Output Table 
IEFJCTX - Job Control Table Extension 
IEFJESCT - JES Communication Table 
IEFSWB - Scheduler Work Block 

serialization: 

No locks or resources are obtained by this 
module. 
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XEFSJPUT - MODULE OPERATION 


This module rebuilds a SWB chain from SWB keyword 
data found in text unit format. It performs 
the following functions: 

1. Gets the address of the SWB chain by using the 
IEFSJSWA procedure to interpret the SWB token. 

2. Verifies that the parameter list (IEFSJPUP) contains 
valid entries: 

a. Checks to make sure that the IEFSJSWA procedure 
successfully verified the SWB token and found an 
address to a valid SWB. If not, sets register 
15 to 4, sets a reason code of SJRCIVTK (2) in 
SJPUREAS, and returns. 

b. Checks that the address of the keyword data area 
was specified (SJPUSWBA). If this field is zero, 
sets register 15 to 4, sets a reason code of 
SJRCPSWB (900) in SJPUREAS, and returns. 

c. Checks that the length of the keyword data area 
was specified. If this field is zero, sets 
register 15 to 4, sets a reason code of 
SJRCPLEN (902) in SJPUREAS, and returns. 

3. Verifies that the verb and label of the SWB 
chain matches the verb and label of the NJE prefix 
found in the keyword data area. If the verb and label 
do not match, sets register 15 to 4, sets reason code 
of SJRCIVTK (2) in SJPUREAS, and returns. 

4. While processing in the caller's key, coimts the number 
of text units found in the keyword data area. 

IEFSJPUT uses the total number of text units to 
determine the amount of storage needed for the text 
unit pointer list. 

5. If no text unit data was found in the keyword 
data area, invokes the SJF write SWB routine 
to build and chain a SWB. Otherwise, obtains 
storage for the text unit pointer list. If 

the GETMAIN was unsuccessful, sets register 15 to 
4, sets a reason code of SJRCPUGM (901) in 
in SJPUREAS, and returns. 

6. Builds the text unit pointer list by scanning the 
keyword data area and storing a pointer to each 
text unit into the text unit pointer list. 

7. Fills in the SJF update parameter list (IEFSJRUP) and 
invokes SJF update to build and chain a SWB chain 
containing the information in the text units in 

the keyword data area. If the SJF update routine had 
any problems while processing the request, sets 
the return code and the reason code to SJF update's 
return code and reason code. 

8. Returns to caller. 

RECOVERY OPERATION: 

If an abend occurs in this module, the scheduler JCL 
facility control routine's recovery (entry point 
RECOVERY in IEFSJCNL) receives control from RTM. 

The recovery routine specifies to RTM the retry address 
(PUTRETRY) in the SJF control workarea. PUTRETRY (in 
this module) receives control from RTM, it does the 
following: 
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1. Sets the return code to indicate an SJF system 
error. 

2. Determines if any storage has been obtained* and 
frees it if it has not already been freed. 

3. Returns to caller. 


SJF-126 


MVS/XA SLL: Sched JCL Fac 


LY28-1740-1 (c) Copyright IBM 1987, 1989 



"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


IEFSJPUT - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: iefsjput 
PUTRETRY 


MESSAGES: None 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJPUT: 

EXIT NORMAL: 

Register 15 = 0 - Processing successful 

Reason codes in SJPUREAS = 

SJRCNOER (0) - Processing successful 

EXIT ERROR: 

Register 15 = 4 - Request cannot be processed 

Reason codes in SJPUREAS « 

SJRCIVTK (2) - Invalid SWB chain address 

SJRCPSWB (900) - Address of keyword data 
area to be put not 
specified 

SJRCPUGM (901) - Unable to obtain storage 

for the text unit pointer and 
for a local copy of the keyword 
data area 

SJRCPLEN (902) - Length of keyword data area not 
specified 

ENTRY POINT PUTRETRY: 

EXIT ERROR: 

Register 15 « 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJPUT: 

Register 0 = Undefined 

Register 1 = Address of a two word parameter 

list. The first word contains the 
address of the Put SWB parameter 
list (IEFSJPUP) and the second 
word contains the address of 
the SJF control workarea (IEFSJCNW) 

Registers 2-12 = Undefined 

Register 13 = Address of an 18 word savearea 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT PUTRETRY: 

Register 0 = Undefined 

Register 1 = Address of ESTAE parameter list 
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Registers 2-14 = Undefined 
Register 15 = Return code 

REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJPUT: 


Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT PUTRETRY: 


Registers 0-14 = Restored 
Register 15 = Return code 
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XEFSJRET - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility (SJF) Retrieve 

Routine 

FUNCTION: 

This module retrieves parameter information from a 
scheduler work block (SMB) chain associated with a 
keyword or keywords for a particular verb and label> 
and uses that information to build text units. 

ENTRY POINT: IEFSJRET 

PURPOSE: See Function 
LINKAGE: CALL 

CALLERS: SJF control routine (IEFSJCNL) 

INPUT: 

SJF Retrieve Parameter List (IEFSJREP) 

FIELD LENGTH/MASK DESCRIPTION 


SJREP 48 

SJREID 4 

SJREVERS 1 

SJREFLAG 1 

SJRENREC X'80 1 
SJRENOCU X’40 1 
SJRELEN 2 

SJRESTOR 4 

SJREREAS 4 

SJREJDVT 8 

SJRETOKN 

SJREANBK 4 


SJREANCA 4 

SJREAREA 4 
SJRESIZE Z 
SJRENKND 2 
SJREKNDL 4 
SJREKERR 4 


Retrieve parameter list 
Identifier 'SJRE* 

Version number 
Control flags 
No recovery 
No cleanup 

Length of the parameter list 
Local storage pointer or zero 
Reason code (returned) 

Name of JDVT or zeroes 
SMB chain token 
Address of anchor control 
block or of the first control 
block for a JCL statement 
Address of word pointing 
to SMB chain or zero 
Storage area address 
Size of storage area 
Number of keywords passed 
Keyword list address 
Address of keyword causing 
error (returned) 


SJF Retrieve Keyword List (Pointed to by SJREKMDL) 


FIELD LENGTH/MASK DESCRIPTION 


SJRELIST (*) 12 

SJREKEYW 8 

SJRETPAD 4 


Keyword list 
Keyword for retrieve 
Address of a list of text 
unit pointers (returned) 


OUTPUT: 

SJF Retrieve Parameter List (IEFSJREP) 


FIELD LENGTH/MASK DESCRIPTION 

SJREREAS 4 Reason code 

SJREKERR 4 Address of keyword causing 

the error or zero 

SJF Retrieve Keyword List 

FIELD LENGTH/MASK DESCRIPTION 
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SJRETPAD (*) 4 Address of a list of text 

pointers or zero 

EXIT NORMAL: Return to caller. 

EXIT ERROR: Return to caller. 

ENTRY POINT: RETRETRY 

PURPOSE: 

Performs cleanup processing when an ABEND 
occurs during SJF Retrieve's processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: IEFSJEXT - SJF Extract Routine 
DATA AREAS: 

IEFSJCNW - SJF Control Work Area 
IEFSJEXP - SJF Extract Parameter List 
IEFSJRC - SJF Reason Codes 
IEFSJREP — SJF Retrieve Parameter List 
IEFSJSWP - IEFSJSWA Parameter List 
IEFZB502 - SWA Prefix 

IEFZB505 - SNA Manager Extended External Parameter Area 
CONTROL BLOCKS: 

CVT - Communication Vector Table 

JCT - Job Control Table 

JCTX - Job Control Table Extension 

JESCT - JES Communication Table 

SCT - Step Control Table 

SIOT - Step Input/Output Table 

SWB - Scheduler Work Block 
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IEFSJRET - NODULE OPERATION 


This module receives control when a retrieve request 
is issued to the scheduler JCL facility. It does the 
following; 

1. Checks the validity of the caller's parameter 
list values. If an error is detected* sets the 
reason code (SJREREAS) and return code* then 
returns. 

2. Sets to zero the caller's storage area and address 
fields (SJRETPAD) in the keyword list passed by 
the caller. 

3. Initializes the SJF extract parameter list fields. 

4. For each keyword in the keyword list (SJREKEYW)* 
does the following; 

a) Places the keyword in the extract parameter 
list (SJEXKEYH). 

b) Invokes the SJF extract routine (IEFSJEXT) 
to obtain JCL definition table (JDT) 
information about the keyword. 

(See IEFSJEXT for a description of 
the information returned.) 

c) If the SJF extract routine had an error* 
examines its reason code (SJEXREAS). 

If a nonzero reason code is returned by the 
SJF extract routine* copies the reason 
code into the retrieve parameter list 
(SJREREAS)* sets the address of the keyword 
causing the error (SJREKERR) in the 
parameter list* sets the return code and 
returns. 

d) If the SJF extract routine was successful* 
sets a pointer to the first subparameter/ 
sublist element definition in the JDT for 
the keyword. 

e) For each subparameter/sublist element of 
each keyword* does the following: 

. Searches the SWB chain to find the 
SMB identifier (owner name and block 
ID specified in the JDT). 

If the SWB was found: 

- Calculates the space required 
to build the text unit and the 
text unit pointer list 

- If there is not enough space 
to store the text unit data* 
copies the text unit pointers 
created thus far into the caller's 
area* sets the reason code (SJREREAS)* 
sets the return code* sets the 
address of the keyword causing the 
error (SJREKERR)* and returns. 

- Checks the validity flag 
associated with the subparameter 
/sublist element in the SWB. 

- If the validity flag is on* 
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XEFSJRET - MODULE OPERATION (Continued) 


copies the subparameter/sublist 
element data into the text unit 
and sets the length field in the 
text unit. 

- If the validity flag is 
off and the subparameter/ 

/sublist element is not a 
list item* sets the length of 
the subparameter/sublist 
element data to zero in 
the text unit. If the subparameter 
is a list item* stops processing 
this keyword. If the sublist 
element is a list item* stops 
processing the sublist element 
and starts processing the next 
subparameter. 

• If the specified SMB was not found 
and the parameter is not a list item* 
sets the length of the subparameter/ 
sublist element to zero in the text 
unit. If the parameter is a list item* 
stops processing this keyword. 

If the sublist element is a list item* 
stops processing the sublist element 
and starts processing the next 
subparameter. 

. If another subparameter/sublist 
element definition exists* sets a 
pointer to that definition in the JDT. 


f) If no data was found for the keyword* sets the 
text unit address in the keyword list (SJRETPAD) 
to zero. If data was found for the keyword* 
copies the text unit pointer list from the 
retrieve work area to the caller's area. 

g) Zeroes the retrieve work area. 

5. Continues with the next keyword in the keyword list. 

6. Returns to the caller. 

RECOVERY OPERATION: 

If an ABEND occurs in this module* the SJF 
control routine's recovery (entry point RECOVERY 
in IEFSJCNL) receives control from RTM. 

The recovery routine specifies to RTM the retry 
address (RETRETRY) in the SJF control workarea. 

When RETRETRY (in this module) receives control 
from RTM if does the following; 

1. Sets the return code to indicate an SJF system 
error. 

2. Returns to the caller. 


SJF-IS2 


MVS/XA SLL 


Sched JCL Fac 
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ZEFSJRET - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJRET 
RETRETRY 


MESSAGES: None 


ABEND CODES: None 
WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJRET: 

EXIT NORMAL: 

Register IS = 0 - Request completed successfully. 

EXIT ERROR: 

Register 15 = 4 - Request was not processed. 

Reason codes in SJREREAS: 

SJRCIVTK 
SJRCNJDV 
SJRCNJCH 
SJRCNVRB 
SJRCNKWD 
SJRCSTRS 
SJRCWSPC 

SJRCSTRA 
SJRCIVKN 
SJRCIVKL 
SJRCIVKN 

Note 1: These reason codes are generated by SJF Extract 
(IEFSJEXT) and caused by user error. See the 
Extract module for additional Extract reason 
codes• 

ENTRY POINT RETRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


(2) - Invalid SWB token 

(4) - JDVT not found 

(5) - JDVT chain does not exist 

(200) - Verb not found in JDT (See Note 1) 

(201) - Keyword not found in JDT (See Note 1) 

(600) - Not enough space in data area 

(601) - Not enough space for text unit 

pointer list in work area 
(60S) - No address specified for storage area 

(604) - Zero specified for number of keywords 

(605) - No keyword list address specified 
(607) - Keyword not specified 


REGISTER CONTENTS ON ENTRY: 


ENTRY POINT 

IEFSJRET: 

Register 

0 

= Undefined 

Register 

1 

= Address of two words that contain the 
address of the input parameter list 
(IEFSJREP) and the address of the 
control work area (IEFSJCNH). 

Registers 

2-12 

= Undefined 

Register 

13 

= Address of an 18-word save area 

Register 

14 

= Return address 

Register 

15 

= Entry point address 

ENTRY POINT 

RETRETRY: 
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XEFSJRET - DIAGNOSTIC AIDS (Continued) 


Register 1 = Address of ESTAE parameter list 

Registers 0>2-14 = Undefined 

Register 15 = Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJRET: 

EXIT ERROR: 

Register 0 = Undefined 

Register 1 = Address of two words that contain the 

address of the input parameter list 
(IEFSJREP) and the address of the 
control work area (IEFSJCNM). 
Registers 2-12 = Undefined 

Register 13 « Address of an 18-word save area 

Register 14 « Return address 

Register 15 = Return code 

ENTRY POINT RETRETRY: 

EXIT ERROR: 

Registers 0-14 = Restored 

Register 15 = Return code 
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XEFSJRTE - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility CSJF) Router Routine 
FUNCTION: 

This module provides an addressing mode interface between 
the issuer of the SJFREQ macro and the Scheduler JCL 
Facility control routine (IEFSJCNL). 

ENTRY POINT: IEFSJRTE 

PURPOSE: See function 

LINKAGE: 

Standard PLS linkage via SJFREQ macro 
. Entry address is in JESCT at location JESSJCNL 

CALLERS: Issuers of the SJFREQ macro 

INPUT: 

IEFSJRTE passes on the input parameter list to 
IEFSJCNL. There is a different input parameter 
list for each SJF function. 

OUTPUT: None 

EXIT NORMAL: Exit to IEFSJCNL via BSM 

EXTERNAL REFERENCES: 

ROUTINES: IEFSJCNL - SJF Control Routine 
CONTROL BLOCKS: 

CVT - Communications Vector Table 

JESCT “ Job Entry Subsystem Communication Table 
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XEFSJRTE - MODULE OPERATION 


This module passes control to the Scheduler JCL Facility 
control routine (XEFSJCNL) in 31-bit addressing mode 
in the following manner: 

1. Saves the addressing mode of the caller in 
register 14. 

2. If the caller is running in 24-bit addressing mode, 
clears the high order byte of register 13 

(save area register). 

3. If the caller is running in 31-bit addressing node* 
clears only the high order bit of register 13. 

4. Gets the address of XEFSJCNL from the JESCT. 

5. Sets the addressing mode for IEFSJCNL and branches 
to IEFSJCNL. 
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XEFSJRTE - DIAGNOSTIC AIDS 


ENTRY POINT NAME: XEFSJRTE 
MESSAGES: None 
ABEND CODES: None 
WAIT STATE CODES: None 
RETURN CODES: None 


REGISTER CONTENTS ON ENTRY: 


Register 0 
Register 1 

Register 2-12 
Register 13 
Register 14 
Register 15 


= Requested function mask 
= Address of a word that contains the 
address of the input parameter list 
= Irrelevant 

= Address of an 18-word savearea 
= Return address to issuer of SJFREQ 
= Entry point address of this module 


REGISTER CONTENTS ON EXIT: 


Register 0-12 
Register 13 


Register 14 
Register 15 


= Unchanged 

= If the caller is running in 24-bit 
mode, the high order byte is zeroed 
out. If the caller is running in 
31-bit mode* the high order bit is 
zeroed out. 

= Return address to issuer of SJFREQ 

= Entry point address of IEFSJCNL 
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XEFSJUPD - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility (SJF) Update 

Routine 

FUNCTION: 

This module verifies the text units specified by the 
.caller and if requested* updates the SMB chain with 
the information specified in text unit format. 

ENTRY POINT: XEFSJUPD 

PURPOSE: See Function 

LINKAGE: CALL 

CALLERS: 

SJF control routine (IEFSJCNL) 

SJF put SWB routine (IEFSJPUT) 

INPUT: 

SJF Update Parameter List (IEFSJRUP) 


FIELD LENGTH/MASK 

DESCRIPTION 

SJRUP 

56 

Control parameter list 

SJRUID 

4 

Identifier *SJRU' 

SJRUVERS 

1 

Version number 

SJRUFLAG 

1 

Control flags 

SJRUNREC 

X^O* 

No recovery 

SJRUNOCU 

X^O* 

No cleanup 

SJRULEN 

2 

Length of parameter list 

SJRUSTOR 

4 

Local storage pointer or zero 

SJRUREAS 

4 

Reason code (returned) 

SJRUINPT 

4 

Pointer to the list of text 
unit pointers 

SJRUJDVT 

8 

Name of JDVT or zeros 

SJRUVERS 

8 

Verb 

SJRULABL 

8 

Label 

SJRUTOKN 

8 

SMS chain token 

SJRUANBK 

4 

Address of anchor control 
block or of the first control 
block for a JCL statement 

SJRUANCA 

4 

Address of word pointing 
to SKB chain or zero 

SJRUFUNC 

1 

Flag field 

SJRUSYST 

X'SO' 

System input 

SJRUNSWA 

X'40' 

Request for a non-SNA SWB 

SJRUVERF 

X'20 1 

Verification only 

SJRUNREF 

X'10 1 

Do not check reference 

SJRUCONT 

x'os 1 

Continuation text unit 

SJRUJRNL 

X , 04* 

Journaling requested 

SJRUWARN 

X^ 1 

Continue processing after 
an ignorable error is 
encountered. Ignorable 
errors are due to changes 
in the JDTs from release 
to release 

SJRUDYNS 

X'Ol' 

Request is for a dynamic 

SWS chain 

SJRUPARM 

1 

Number of parameters 
already processed in the 
first text unit 

SJRUERRK 

2 

Key in error (returned) 

The input to 

this module also includes the SJF 


control workarea (IEFSJCNM). 
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OUTPUT: 

SJF Update Parameter List (IEFSJRUP) 

FIELD LENGTH DESCRIPTION 

SJRUREAS 4 Reason code 

SJRUERRK 2 Key in error 

The SWB chain is updated> if requested. 

EXIT NORMAL: Return to caller 

EXIT ERROR: Return to caller 

ENTRY POINTS UPDRETRY 


PURPOSE: 

Performs cleanup processing when an abend 
occurs during the SJF update routine's 
processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 


ROUTINES: 

IEFSJDEL - SJF Delete SWB 
IEFSJEXT - SJF JDT Extract 
IEFSJFND - SJF Find SWB 
IEFSJWRT - SJF Write SWB 
IEFXB501 - Journal Write Routine 


DATA AREAS: 
IEFSJCNW 
IEFSJDLP 
IEFSJEXP 
IEFSJFNP 
IEFSJRC 
IEFSJRUP 
IEFSJSWP 
IEFSJWRP 
IEFZB4D1 
IEFZB507 


SJF Control Work Area 

SJF Delete SWB Parameter List 

SJF JDT Extract Parameter List 

SJF Find SWB Parameter List 

SJF Reason Codes 

SJF Update Parameter List 

IEFSJSHA Parameter List 

SJF Write SWB Parameter List 

Dynamic Allocation Text Unit 

Journal Write Parameter List 


CONTROL BLOCKS: None 
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XEFSJUPD - MODULE OPERATION 


This module verifies the text units specified by the 
caller and if requested* updates the SWB chain with 
the information specified in text unit format. 

It does the following: 

1. If the request is to update the SKB chain* 

calls IEFSJSWA to validate the input SKB token and 
makes a copy of the SKB chain to be updated. 

2. For each text unit specified* IEFSJUPD does the 
following: 

- Invokes the SJF extract routine (IEFSJEXT) to verify 
that the verb specified in the parameter list and the 
key specified in the text unit are defined in the JOT, 

- For each parameter in the text unit* invokes the 
SJF extract routine to retrieve the parameter 
information from the JDT* performs the checking 
specified in the JDT for this data type* and 

if the request is to update the SKB chain* 
invokes the SJF write SWB routine (IEFSJKRT) 
to update the SKB specified in the JDT with the 
parameter data. 

- If no parameter was specified in the text unit* invokes 
the SJF extract routine to retrieve the parameter 
information from the JDT and checks if a default 
value is specified in the JDT. If a default 

value is specified and the request is to update 
the SWB chain* invokes the SJF write SKB routine 
to update the SKB specified in the JDT with the 
default value. 

- If the warning indicator (SJRUWARN) in the 
parameter list is on* then processing will continue 
after an error in a text unit caused by changes in 
the JDTs from release to release. The erroneous 
text unit or text unit parameter is ignored and all 
valid information is stored in the SKB chain. 

- If the warning indicator (SJRUWARN) is off* 
processing will stop after the first error in a 
text unit and the SKB chain will not be updated. 

3. If no errors have occurred and the request is to 
update the SKB chain* copies the updated SKB 
chain back into the original SKB chain. 

4. If no errors have occurred and some SMBs have been 
updated* invokes the journal routine (IEFXB501) to 
journal the SKBs. 

5. If an error was detected and some new SKBs were 
created* invokes the SJF delete routine (IEFSJDEL) to 
delete the SKBs that were newly built. 

6. Returns to the caller. 

RECOVERY OPERATION: 

If an abend occurs in this module* the scheduler JCL 
facility control routine's recovery (entry point RECOVERY 
in IEFSJCNL) receives control from RTM. The recovery 
routine specifies to RTM the retry address (UPDRETRY) in 
the SJF control workarea. When UPDRETRY (in this module) 
receives control from RTM* it does the following: 

1. Sets the return code to indicate an SJF system error. 

2. If some new SKBs were created* invokes SJF delete 
(IEFSJDEL) to delete the SKBs that were newly built. 

3. Frees the storage obtained to copy the SKBs and 
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IEFSJUPD - MODULE OPERATION 

the text units. 

4. Returns to the caller. 


IContinued) 
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IEFSJUPD - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJUPD 
UPDRETRY 


MESSAGES: None 


ABEND CODES: 

'054'X (84 decimal) with reason code ‘OE^X (14 decimal) 
- indicates an invalid data type was encountered 
when checking the parameter. 

WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJUPD: 

EXIT NORMAL: 

Register 15 = 0 - Request completed successfully 
Reason codes in SJRUREAS 

SJRCNOER (0) - Request completed successfully 

The following non-zero reason codes may be returned 
if an error due to changes in the JDTs from release 
to release was detected and SJRUWARN bit is on. 

SJRCNKEY (202) - Key not defined in JDT 
SJRCNPRM (203) - Subparameter not defined in JDT 
SJRCIVLN (500) - Invalid length of parameter 
SJRCIVCH (501) - Invalid choice specified for 
parameter 

SJRCGMAX (502) - Integer parameter exceeds maximum 
SJRCLMIN (503) - Integer parameter less than minimum 
SJRCNLLN (510) - Length of level exceeds the 
maximum 

SJRCNLNM (511) - Number of levels exceeds the 
maximum 

SJRCNFCH (512) - Invalid first character of level 
in parameter 

SJRCNOCH (513) - Invalid character other than the 
first in level in parameter 

EXIT ERROR: 

Register 15 = 4 - Request was not processed 

Reason codes in SJRUREAS: 

SJRCIVID (1) - Invalid SWB ID 

SJRCIVTK (2) - Invalid SWB token 

SJRCNJDV (4) - JDVT not found 

SJRCNJCH (5) - JDVT chain does not exist 

SJRCNVRB (200) - Verb not defined in JDT 
SJRCNKEY (202) - Key not defined in JDT 
SJRCNPRM (203) - Subparameter not defined in JDT 
SJRCNSCH (400) - Specified SWB chain not found 
(invalid referral) 

SJRCSTEP (401) - Specified step or proc not found 
(invalid referral) 

SJRCDDNM (402) - Specified DD label not found 
(invalid referral) 

SJRCIVLN (500) - Invalid length of parameter 
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IEFSJUPD - DIAGNOSTIC AIDS (Continued) 


SJRCIVCH 

SJRCGMAX 

SJRCLMIN 

SJRCIVKY 

SJRCDUPK 

SJRCNNUM 

SJRCCOPY 

SJRCIVRB 

SJRCIVLB 

SJRCNLLN 

SJRCNLNM 

SJRCNFCH 

SJRCNOCH 

SJRCNLIV 

SJRCIVRF 

SJRCIREF 


(501) - Invalid choice specified for parameter 

(502) - Integer parameter exceeds maximum 

(505) - Integer parameter less than minimum 

(504) - Invalid key, system specification only 

(505) - Duplicate key 

(506) - No parameter specified and 

no default defined 

(507) - No storage could be obtained in 

which to update the SMBs 

(508) - Verb not specified in the 

parameter list 

(509) - Label not specified in the 

parameter list 

(510) - Length of level exceeds the 

maximum 

(511) - Number of levels exceeds the 

maximum 

(512) - Invalid first character of level 

in parameter 

(513) - Invalid character other than the 

the first in level in parameter 

(514) - Invalid specification of level in 

parameter 

(515) - Invalid specification of referral 
(517) - Invalid referral. This is due to 

a reference to a dynamic SWB chain 
outside of the current step 


ENTRY POINT UPDRETRY: 

EXIT ERROR: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJUPD: 

Register 0 = Undefined 

Register 1 = Address of two words that 

contain the address of 
the input parameter list 
and the address of the 
control work area. 

Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 

Register 14 - Return address 

Register 15 » Entry point address 

ENTRY POINT UPDRETRY: 

Register 0 = Undefined 

Register 1 = Address of ESTAE parameter list 

Registers 2-14 = Undefined 

Register 15 » Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJUPD: 


Register 0 = Restored ' 

Register 1 = Address of two words that 

contain the address of 
the input parameter list 
and the address of the 
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IEFSJUPD - DIAGNOSTIC AIDS (Continued) 


control work area* 

Registers 2-12 = Restored 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Return code 

ENTRY POINT UPDRETRY: 


Registers 0-14 = Restored 
Register 15 = Return code 
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XEFSJUPD - scheduler JCL Facility (SJF) Update Routine 


STEP 01 


SJF control routine (IEFSJCNL) 
SJF put SMB routine (IEFSJPUT) 

0 

XEFSJUPD 

i-K 


PARAMETERS 


SJRUP 


SJCNW 


jr 


XEFSJSMP 


SJSMP 


SJCNW 


SJCNRTRY SJCNLEVL 
SJCNCSTO SJCNBASE 
SJCNSAVE 


XEFSJRC 


SJRCNOER 


SJRUP 


SJRUVERF 


J\ 

V 


■> 


SJRUP 

ISJRUTOKN 




J\ 

V 


This module verifies the text units 
specified by the caller and if requested* 
updates the SMB chain with the information 
specified in text unit format. 



Updates the module level* 
the storage address* the 
base register* the save area 
pointer* and the retry 
address in the SJF control 
workarea and performs 
initialization. 


02 


If the request is to update 
the SMB chain* calls 
XEFSJSWA to interpret SMB 
token* validate SMB 
structure* and* if 
successful* establish 
addressability to SMB chain. 
Otherwise* if no SMB chain 
is found* verifies that both 
the verb and label are 
specified in the parameter 
list. 


03 


Uses XEFSJSMA to validate 
the SMB token and gain 
addressability to the 
beginning of the SMB chain. 
XEFSJSMA translates the 
token to the address 
(SJSMPFX) and SVA (SJSMWORK) 
of the SMA prefix* and the 
address of the SMB itself 
(SJSMBLK ) at the beginning 
of the SMB chain. Further* 
it validates that the block 
is a SMB and provides a 
pointer (SJSMANCA) to the 
ANCHOR field (in the 
caller's storage area) in 
which the SMB chain SVA is 
stored. 


A. Transl ates SIC token 


XEFSJSMA 


SJSMPTR 


-KSJCNM 


SJCNUPFP 

SJCNRTRY 

SJCNLEVL 

SJCNCSTO 

SJCNBASE 

SJCNSAVE 


U\SJRUP 




SJRUREAS 

SJRUERRK 


-KXEFSJSMP 
1 (sjsntokn] 
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IEFSJUPD - Scheduler JCL Facility CSJF) Update Routine 


STEP 03B 


XEFSJSWP 


SJSWRETC 


IEFSJRC 


|SJRCNOER 

IEFSJSWP 


SJSWPFX 


SWBVERB SWBVRBL 


IEFSJSWP 


SJSWRETC 


IEFSJRC 


SJRCNSWB 


IEFSJRC 


SJRCIVTK SJRCIVRB 
SJRCIVLB 


SJRUP 


.SJRUVERB SJRULABL 



B. If a valid SWB chain isn't found? sets a 
return code and a reason code indicating 
that the SWB token is invalid. 

Otherwise? a SWB chain does not exist? 
so ensures that both verb and label are 
specified in the input parameter list. 

If this is the case? saves the verb and 
label and if not? sets the return code 
and reason code to indicate that the 
verb/label were not specified. 


J\SJRUP 


04 Makes a copy of the SWB 
— 1 chain to be updated> the 
text unit pointer list? and 
text units in key 1 storage. 



TEXTUNIT 


TXTPLENT 


For each text unit specified 
by the caller , does the 
following: 


A. Verifies that the verb and key are 
defined in the JDTs. 

\i -./I FINDKEY: 19 


B. Verifies that the key has not already 
b een s pecified in a previous text unit. 

\|-1/| DUPKEYCK ” ~~] 


TEXTUNIT 


TEXTUNUM 
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XEFSJUPD - Scheduler JCL Facility CSJF) Update Routine STEP 06 


TEXTUNIT 


TEXTUENT 


TEXTUNIT 


TEXTUNUM 


TEXTUNIT 


TEXTULEN 


J" 


SJEXP 


SJEXPLST SJEXPSLL 


SJRUP 


SJRUREAS SJRUWARN 


XEFSJRC 


SJRCIVLN 


TEXTUNIT 


TEXTUXEY TEXTULEN r 


SJEXP 


SJEXPDDF 


SJEXP 


SJEXDFLT 


SJRUP 


SJRUVERF 


*-> 

V 


—> 
-K 


061 For each parameter in the 
— 1 text unit* does the 
following: 

A. Verifies that the parameter is defined 
in the JOT. 

/I-1 \ 

\l-1/| FINDPARM: 24 


Performs the type of checking specified 
in the JDT for each parameter. 

/*-*\|- 


CHKPARM: 28 


C. Saves the parameter information in the 
S WB sp ecified in the JOT. 


1 / 


SAVEPARM: 56 


07 


If there are no parameters 
in the text unit* does the 
following: 


A. Obtains the information about the key 
from the JDT. 

/*-*\ 

\i-1/1 FINDPARM: 24 


B. Stores the parameter information in the 
SMB specified in the JDT. 

/i—1\.- 

\i-1/ SAVEPARM: 36 


J \SJRUP 


SJRUREAS i 
SJRUERRK i 
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XEFSJUPD - Scheduler JCL Facility CSJF) Update Routine 


STEP 08 


TEXTUNZT 


TXTUPELM TXTPLEND 


J\SJRUP 


SJRUP 


SJRUREAS SJRUHARN 


ZEFSJRC 


SJRCNNUM 


TEXTUNZT 


.TEXTUKEY 


SJRUP 


SJRUVERF 


IEFSJSWP 


ISJSWANCA 


IEFSJSWP 


. SJSWWORK 



108 zf no errors have been 
1 — 1 detected and the request is 
to update the SUB chain* 
does the following: 

A. Copies the updated Site chain beck into 
the original SWB chain. 



SJRUP 


ISJRUNSWA SJRUJRNLl 


B. If journaling is requested* invokes the 
journal write routine to journal the 
Si tes. < 

\r- 1 /| JOURNAL: 47 I 


09 Xf an error has been 
— 1 detected and some SWBs have 
been created* calls the SJF 
delete SWB routine to free 
the SWBs. 


DELETE: 39 


10 Frees the storage obtained 
— 1 to copy the SWBs and the 
text units. 
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XEFSJUPD - Scheduler JCL Facility CSJF) Update Routine 


STEP 11 


11 


12 


Restores the caller's module 
level* storage pointer* base 
register* save area pointer* 
and retry address in the SJF 
control workarea. 


Returns to the caller. 


tn 


J \SJCNW 


SJCNUPFP 

SJCNRTRY 

SJCNLEVL 

SJCNCSTO 

SJCNBASE 

SJCNSAVE 


SJCNW 


SJCNCSTO SJCNBASE 
SJCNSAVE 



RTH 

t- 

UPDRETRY 

- 

-,/ 


SJRUP j-> 

[sjRUVERF “1 


13 


Zf entering from RTM after 
an ABEND* restores the data 
register* the code register* 
and save area pointer and 
sets the return code to 
indicate a SJF system error* 


14 


Sets the return code to 
indicate a SJF system error. 



Xf some sWBs have been 
created and the original SUB 
chain has not been updated* 
calls the SJF delete SUB 
routine to free the SUBs. 



DELETE: 39 


16 Frees the storage obtained 
— 1 to copy the SUBs and the 
text units. 


17 


Restores the caller's module 
level* storage pointer* base 
register* save area pointer* 
and retry address in the SJF 
control workarea. 



Returns to the caller. 




■KSJCNW 


SJCNUPFP 

SJCNRTRY 

SJCNLEVL 

SJCNCSTO 

SJCNBASE 

SJCNSAVE 
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XEFSJUPD - Scheduler JCL Facility (SJF) Update Routine 


STEP 19 


SJEXP 


- 1 \ 

19 > 

I ^ 

FINDKEY 



Verifies that the verb 
specified in the parameter 
list and the key specified 
in the text unit are defined 
in the JOT. 


Invokes the SJF extract 
routine to search for the 
verb and key in the JDTs. 

—,/ IEFSJEXT 

SJEXP, SJCNN 


If IEFSJEXT returns a return 
code of four with a reason 
code indicating that the key 
is not defined in the JDT» 
sets the flag to indicate 
that the text unit is in 
error and sets the temporary 
reason code to the reason 
code returned from IEFSJEXT. 
If IEFSJEXT returns a return 
code greater than four* sets 
the reason code in the 
parameter list to the reason 
code returned from IEFSJEXT. 


If the key is user specified 
and only system 
specification is allowed* 
sets the reason code in the 
parameter list to indicate 
invalid key and places the 
key that is in error in the 
parameter list. 


Returns to the subroutine 
caller. 



\SJEXP 

/ |sJEXID I 
SJEXVERS 
SJEXLEN 
SJEXJDVT 
SJEXVERB 
SJEXKEY 



\SJRUP 

/.- 1 

SJRUREAS 

SJRUERRK 



\SJRUP 

/, -1 

SJRUREAS 

SJRUJOVT 

SJRUERRK 
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XEFSJUPD - Scheduler JCL Facility (SJF) Update Routine 


STEP 24 


-K 


SJRUP 


SJRUCONT 


SJRUP 


24 > 

-,/ 

FINOPARM 

— -> 

-K 


SJRUPARM 


XEFSJRC 


SJRCNPRM 

□ 

SJEXP 


SJEXREAS 

_f 

TEXTUNIT 


TEXTUKEY 

r 


—> 
-K 
V 


24 


25 


26 


27 


Invokes the SJF Extract 
routine to retrieve 
information from the JOT 
about the next subparameter. 


Invokes the SJF extract 
routine to retrieve 
information from the JOT 
about the parameter. 


IEFSJEXT 


SJEXP, SJCNW 


Xf IEFSJEXT returns a return 
code of four with a reason 
code indicating that the 
subparameter is not defined 
in the JDT> sets the flag to 
indicate that the text unit 
is in error and sets the 
temporary reason code to the 
reason code returned from 
XEFSJEXT. Xf IEFSJEXT 
returns a return code 
greater than four* sets the 
reason code in the parameter 
list to the reason code 
returned from XEFSJEXT. 


Returns to the subroutine 
caller. 


FI 


\ / 


■KSJEXP 


V 


SJEXPARM 


J \SJRUP 


SJRUREAS 

SJRUERRK 


28 


-1/ 

CHKPARM 


SJEXP 


SJEXPBOL 


SJEXP 


SJEXPCHR 


28 


Performs the type of 
checking specified in the 
JDT for each subparameter. 


Xf the parameter is type 
boolean* performs boolean 
checks. 

/i-1\.- 

\i-1/ CHECKBOL 


1301 Xf the parameter is type 
character* performs 
character checks. 

■ i\i 

\i-1/ CHECKCHR 


LY28-1740-1 (c) Copyright IBM Corp. 1987> 1989 


Method of Operation SJF-151 






"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


XEFSJUPD - Scheduler JCL Facility (SJF) Update Routine 


STEP 31 


SJEXP 


ISJEXPINT SJEXPHEXl 


31 If the parameter is type 
1 — 1 integer or type hex* 

perforins integer checks 

/i—1\|- 

\i-1/ CHECKINT 


SJEXP 


I SJEXPREF 


32 If the parameter is type 
1 — 1 reference* performs 
reference checks. 


CHECKREF: 42 


SJEXP 


-> 33 


If the parameter is type 
ASXS* then performs ASIS 
type checks. 


KSJRUP 


SJRUERRK 
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IEFSJUPD - scheduler JCL Facility CSJF) Update Routine 


STEP 39 


SJOLP 

SJPLCID SJDLCVERr 


39 


DELET E 


39 


40 


41 


Invokes the SJF delete SUB 
routine to delete the newly 
created SMBs. 


If new SUBs were created* 
invokes the SJF delete SUB 
routine to free the storage 
obtained. 


i/ 


IEFSJDEL 


SJDLP, SJCNW 


Returns to the subroutine 
caller. 


-KSJDLP 
V 


SJDLID 

SJDLVERS 

SJDLLEN 

SJDLANCA 


*1 


\ / 


-'\ 

42 > 

- \ / 

CHECKREF 


TEXTUNIT r -> 

* i. 


TEXTULEN 


SJEXP 

: 



SJEXPMIN 


TEXTUNIT 


TEXTUKEY TEXTUPRM| 

—I 

SJEXP 

J 

SJEXPCNL | 

1— 1 

IEFSJRC 

J 

SJRCIVLN |- 


TEXTUNIT ,- 


TEXTUKEY TEXTULEN 
TEXTUPRM 


IEFSJRC 

SJRCNLLN SJRCNLNM 

— 

SJRCNFCH SJRCNOCH 


SJRCNLIV 



42 


Checks the format of the 
parameter and if requested* 
verifies that the statement 
referenced by the parameter 
exists. 


43 


Checks that the length of 
the parameter is not greater 
than the maximum length and 
not less than the minimum 
length. 


44 


Checks that the length of 
each level is not greater 
than eight and checks that 
the number of levels is not 
greater than three. Checks 
that the first character of 
each level is alphabetic or 
national and that the other 
characters are alphameric or 
national. 


J \SJRUP 


SJRUREAS 

SJRUERRK 


■KSJRUP 


SJRUREAS 

SJRUERRK 
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XEFSJUPD - Scheduler JCL Facility (SJF) Update Routine 


STEP 45 


SJFNP 


ISJFNCID SJFNCVERr 


SJEXP 


ISJEXKSTM 


If no errors have been 
detected and verification of 
reference parameters is 
requested, does the 
following: 


If a label is specified, invokes the SJF 
find SWB routine to verify that a 
statement with the specified label 
exists in the current step. 


J \SJFNP 

l7 l- 

SJFNID 

SJFNVERS 

SJFNLEN 

SJFNVERB 

J \SJFNP 

i / i - 

SJFNCST 

SJFNLABL 



IEFSJFND 


SJFNP, SJCNW 


B. If a statement with the specified label 
was not in the current step, invokes the 
SJF find SWB routine to verify that a 
statement with the specified label 
exists at the job level. 


IEFSJFND 


SJFNP, SJCNW 


C. If a statement with the specified label 
does not exist at the job level, sets 
the reason code in the parameter list to 
the reason code returned from IEFSJFND 
and places the key in error in the 
parameter list. 

D. If a step and a label were specified or 
a proc, a step, and a label were 
specified, invokes the SJF find SWB 
routine to verify that a statement with 
the specified label exists in the 
specified step. 


SJFNP, SJCNW 


E. If a statement with the specified label 
does not exist in the specified step, 
sets the reason code in the parameter 
list to the reason code returned from 
IEFSJFND and places the key in error in 
the parameter list. 
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IEFSJUPD - Scheduler JCL Facility (SJF) Update Routine 


STEP 45F 



TEXTUXEY 


F. Determine if the reference is an 

explicit find to a step other than the 
current step. If this is so then 
determine if this find is for a 
dynamically created SMB chain* these are 
not supported (due to restart 
restriction) so issue a return and 
reason code. 


46 Returns to the subroutine 
1 — 1 caller. 


JNLPARM 


■ JNLPARMX 


IEFSJSWP 


SJSWWORK 


- 

47 > 

- 1 / 

JOURNAL 


Invokes the journal write 
routine to journal the SWB 
chain. 


48 Invokes the journal write 
— 1 routine to journal the SWB 
chain. 

/*-i\,- 

\i-./ IEFXB501 


KEPAL 


SWAEPAX 

SWVA 


SJRUREAS 

SJRUERRK 



JNLSJF 
JNLPPTRX 
JNLPARMX. 
JNLBLKADI 


JNLPARM 


49 Returns to the subroutine 
— 1 caller. 
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ZEFSJVER - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Scheduler JCL Facility CSJF) Verify 

Routine 

FUNCTION: 

This module verifies the command, operand, and 
subparameters specified by the caller and builds 
text units containing the subparameter information. 

ENTRY POINT: IEFSJVER 

PURPOSE: See Function 

LINKAGE: CALL 

CALLERS: SJF control routine (IEFSJCNL) 


INPUT: 

SJF Verify Parameter List (IEFSJVEP) 


FIELD LENGTH/MASK 

DESCRIPTION 

SJVEP 

256 

SJF Verify parameter list 

SJVEID 

4 

Identifier *SJVE* 

SJVEVERS 

1 

Version number 

SJVEFLAG 

1 

Function flags 

SJVENREC 

X^O* 

No recovery 

SJVENOCU 

X^O* 

No cleanup 

SJVEUNAU 

X'20 1 

Unauthorized caller 

SJVELEN 

2 

Length of parameter list 

SJVESTOR 

4 

Local storage pointer 

SJVEREAS 

4 

Reason code (returned) 

SJVEJDVT 

8 

Name of JDVT or zeroes 

SJVECMND 

8 

Command 

SJVEOPEP 

4 

Pointer to operand 

SJVEOPEL 

2 

Length of operand 

SJVEPARM 

1 

Subparameter number 

SJVESUBL 

1 

Sublist element number 

SJVEPRMP 

4 

Pointer to subparameter data 

SJVEPRML 

2 

Length of subparameter data 

SJVETUBL 

2 

Length of text unit buffer 

SJVETUBP 

4 

Pointer to text unit buffer 

SJVEFLG1 

1 

Verify Option flags 

SJVELSTC 

X'80' 

Last call bit, used to remove 



null text units 

SJVERSV1 

3 

Reserved 

SJVETUPL 

4 

Pointer to text unit pointer 
list (returned) 

SJVEOPD 

64 

Operand description (returned) 

SJVEOPDL 

2 

Length of operand description 
(returned) 

SJVEMSGL 

2 

Length of message information 
(returned) 

SJVEMSG 

120 

Message information (returned) 

SJVERSV2 

8 

Reserved 

The input to 

this module also includes the SJF 

control workarea (XEFSJCNW). 

OUTPUT: 



SJF Verify Parameter List 

(IEFSJVEP) 

FIELD 

LENGTH 

DESCRIPTION 

SJVEREAS 

4 

Reason code 

SJVETUPL 

4 

Pointer to text unit pointer 
list 

SJVEOPD 

64 

Operand description 

SJVEOPDL 

2 

Length of operand description 
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XEFSJVER - MODULE DESCRIPTION (Continued) 


SJVEMSGL 2 Length of message information 

SJVEMSG 120 Message information 

A text unit pointer list and text units are built 
in the text unit buffer. 

EXIT NORMAL: Return to caller 

EXIT ERROR: Return to caller 

ENTRY POINT: VERRETRY 

PURPOSE: 

Performs cleanup processing when an abend 
occurs during the SJF verify routine's 
processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

IEFSJEXT - SJF Extract 

IEFSJMSG - SJF Message Module (data only) 

DATA AREAS: 

IEFSJCNW - SJF Control Work Area 

IEFSJEXP - SJF Extract Parameter List 

IEFSJRC - SJF Reason Codes 

IEFSJVEP - SJF Verify Parameter List 

IEFSJMSP - SJF Message Parameter List 

IEFZB4D1 - Dynamic Allocation Text Unit Pointer List 

CONTROL BLOCKS: None 

SERIALIZATION: No serialization 
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IEFSJVER - MODULE OPERATION 


This module verifies the command* operand* and 
subparameters specified by the caller and builds 
text units containing the subparameter information. 

It does the following: 

1. If the last call option was specified (SJVELSTC) then 
check the last text unit to determine if it is null. 

If the last text unit is null then it is removed and 
Verify related parameters in the SJF Control Work 
area are zero'd. 

2. If a command was specified with no operand: 

A. Invokes the SJF extract routine (IEFSJEXT) to verify 
that the command specified in the parameter list is 
defined in the JDT. 

B. If the SJF extract is not successful* sets the return 
code and the reason code to the return code and 
reason code returned from the SJF extract. 


3. If a command with an operand and no subparameter 
was specified: 

A. Invokes the SJF extract routine (IEFSJEXT) to verify 
that the command and operand specified in the 
parameter list are defined in the JDT. 

B. If the SJF extract is not successful* sets the return 
code and the reason code to the return code and 
reason code returned from the SJF extract. 


4. If a command with an operand and a subparameter was 

specified: 

A. Invokes the SJF extract routine (IEFSJEXT) to verify 
that the command and operand specified in the 
parameter list are defined in the JDT and to retrieve 
the subparameter information from the JDT. 

B. If the SJF extract is not successful* sets the return 
code and the reason code to the return code and 
reason code returned from SJF extract* and puts the 
error message information in the parameter list. 

C. If there are no errors* performs the checking 
specified in the JDT for this subparameter. 

D. If there are no errors* builds a text unit containing 
the subparameter information or adds on to an exist¬ 
ing text unit. For each new text unit* adds a 
pointer to the text unit pointer list. If a 
duplicate text unit key exists* the new text unit 
will replace the previous one. 

E. If there is an error in the parameter* builds 
message text containing the parameter rules. 

5. Returns to the caller. 

RECOVERY OPERATIONS 

If an abend occurs in this module* the SJF control 
routine's recovery (entry point RECOVERY in IEFSJCNL) 
receives control from RTM. The recovery routine 
specifies to RTM the retry address (VERRETRY) in the 
SJF control workarea. When VERRETRY (in this module) 
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XEFSJVER - MODULE OPERATION (Continued) 


receives control from RTM, it does the following: 

1. Sets the return code to indicate a SJF system 
error. 

2. Returns to the caller. 
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XEFSJVER - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: iefsjver 
VERRETRY 


MESSAGES: None 


ABEND CODES: 

a 054'X (084 decimal) - SJF system error abend 

Reason code - 7 - Text unit buffer full 

8 - Invalid data type during SJF Verify 

data checking 

9 - Invalid data type during SJF Verify 

message building 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFSJVER: 

EXIT NORMAL: 

Register 15 = 0 - Request completed successfully 
Reason codes in SJVEREAS 

SJRCNOER (0) - Request completed successfully 

EXIT ERROR: 

Register 15 » 4 - Request was not processed 

Reason codes in SJVEREAS: 

SJRCNJDV (4) - JDVT not found 

SJRCNJCH (5) - JDVT chain does not exist 

SJRCNPRM (203) - Subparameter not defined in JDT 
SJRCNCMD (207) - Command not defined in JDT 
SJRCNOPE (208) - Operand not defined in JDT 
SJRCIVLN (500) - Invalid length of parameter 
SJRCIVCH (501) - Invalid choice specified for parameter 
SJRCGMAX (502) - Integer parameter exceeds maximum 
SJRCLMIN (503) - Integer parameter less than minimum 
SJRCNNUM (506) * No parameter specified and 
no default defined 

SJRCNLLN (510)- Length of level exceeds the 
maximum 

SJRCNLNM (511) - Number of levels exceeds the 
maximum 

SJRCNFCH (512) - Invalid first character of level 
in parameter 

SJRCNOCH (513) - Invalid character other than the 
first in level in parameter 
SJRCNLIV (514) - Invalid specification of level in 
parameter 

SJRCIHEX (515) - Characters other than hex specified 
SJRCINUM (516) - Nonnumeric characters specified 
SJRCIVCM (1200)- Command not specified 
SJRCIVTP (1201)- No address specified for the text 
unit buffer 

SJRCIVTL (1202)- Not enough storage in the text unit 
buffer 


SJF-160 MVS/XA SLL: Sched JCL Fac 


LY28-1740-1 (c) Copyright IBM 1987, 1989 



"Restricted Materials of IBM” 
Licensed Materials - Property of IBM 


IEFSJVER - DIAGNOSTIC AIDS (Continued) 

ENTRY POINT VERRETRY: 

EXIT ERROR: 

Register 15 « 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJVER: 

Register 0 = Undefined 

Register 1 = Address of two words that 

contain the address of 
the input parameter list 
and the address of the 
control work area. 

Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT VERRETRY: 

Register 0 = Undefined 

Register 1 = Address of ESTAE parameter list 

Register 2-14 = Undefined 

Register 15 = Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJVER: 


Register 0 = Restored 

Register 1 = Address of two words that 

contain the address of 
the input parameter list 
and the address of the 
control work area. 


Registers 

2-12 

= Restored 

Register 

13 

= Address of 18-word save area 

Register 

14 

» Return address 

Register 

15 

= Return code 


ENTRY POINT VERRETRY: 


Registers 0-14 s Restored 
Register 15 s Return code 
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IEFSJVER - Scheduler JCL Facility (SJF) Verify Routine 


STEP 01 


SJF control routine (IEFSJCNL) 



IEFSJVER 


PARAMETERS 


i 


-1/ 


SJVEP SJCNW 


ZEFSJVEP 


SJCNCSTO Rll 




-»\ 

1 / 


SJEXP r-—> 

SJVELSTC 


This module verifies the command> operand, 
and subparameters specified by the caller 
and builds text units containing the 
subparameter information. 


01 


Updates the module level* 
the storage address* the 
base register* the save area 
pointer* and the retry 
address in the SJF control 
workarea and performs 
initialization. 


02 


If this is not the last 
call* then does the 
following: 


If a command was specified* 
does the following: 

A. Calls the routine to check if the 

command, or operand, or sii>parameter, as 
specified in the parameter list, is 
defined in the JDT. 


03 


B. 


Calls the routine to invoke SJF extract 



FINDCOS: 14 


C. If a subparameter number was specified, 
does the following: 

D. Checks the validity of the subparameter. 


E. Calls the routine to perform the 
checking specified in the JDT. 

/«-»\|- 


CHKPARM: 21 


F. If no errors were found in the 
subparameter, does the following: 


G. 


Calls the routine to build the text 
unit. 



BLDTXUNT: 29 


04 If no command was specified* 
— 1 sets the return code and 
reason code to indicate an 
error condition. 


■KIEFSJVEP 

1 ISJCNCSTOI 
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IEFSJVER - Scheduler JCL Facility CSJF) Verify Routine 


STEP 05 


XEFSJVEP j-> 

RETRYE 


RTM 



VERRETRY 



05 


If the return code (RETCODE) 
is greater than zero* does 
the following: 


Calls the routine to build 
the message text. 

/'-‘\i- 


PRCMSGTX: 37 


07 If the caller specifies this 
— 1 is the last call, then call 
the routine to check for and 
remove a null text unit. 



Calls routine to remove null 
text units 



REMOVE_NULL TEXTUNITs 36 


09 


If entering from RTM after 
an ABEND, restores the data 
register, the code register, 
and save area pointer, and 
sets the return code to 
indicate an SJF system 
error. 



Entry point for cleanup 
processing 



Sets the return code to 
indicate an SJF system 
error. 


12 


Restores the caller's module 
level, storage pointer, base 
register, save area pointer, 
and retry address in the SJF 
control workarea. 



Returns to the caller. 




J \IEFSJVEP 


Rll 

RETRYE 


-MEFSJVEP 


SJCNCSTO 
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IEFSJVER - Scheduler JCL Facility (SJF) Verify Routine 


STEP 14 


XEFSJVEP 


SJEXCVER 


SJCNW 


SJVEUNAU 


-'\ 

14 > 

- 1 / 

FINOCOS 

-1\ 

- ./ 


Verifies that the command* 
operand* and subparameter* 
as specified in the 
parameter list* are defined 
in the JDTs. 


Stores the command into the 
SJF extract parameter list. 


SJEXP 


OPERAND 


If an operand was specified* 
stores the operand in the 
SJF extract parameter list. 


SJCNW 


ISJVESUBL 


If a subparameter number was 
specified* stores the 
subparameter number and the 
sublist element number in 
the SJF extract parameter 
list. 


Calls the SJF extract 
routine. 

/•——*\i- 

\i-1/| IEFSJEXT 


SJEXP, SJCNW 


If IEFSJEXT returns a 
non-zero return code* saves 
the return code and reason 
code returned from IEFSJEXT 
in the SJF verify parameter 
list. 


20 Returns to the subroutine 
1 — 1 caller. 



MEFSJVEP 
Iextxfp I 


SSJCNW 

IfindcxfpI 
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XEFSJVER - Scheduler JCL Facility (SJF1 Verify Routine 


STEP 21 


SJCNW 


.SJEXPLST 


21 > 

■—- 1 / 

CHKPARM 


21 Performs the type of 
— 1 checking specified in the 
JDT for the subparameter. 


Checks choice type 
subparameters. 

/'-K,- 

\i-1/ IEFSJCBL 


KSJCNW 

^IchkpaefpI 

'PARMLEN 


SJVEPRML, SUBPDATA, 
PARMLEN, PARMBUFR, SJVEREAS 


23 Checks character type 
J subparameters. 

\i-./ XEFSJCCH 


SJVEPRML , SUBPDATA, 
PARMLEN. PARMBUFR. SJVEREAS 


241 Checks integer type 
— 1 subparameters. 

/>—— | \i- 

\i-./ IEFSJCIN 


SJVEPRML. SUBPDATA, 
PARMLEN, PARMBUFR, SJVEREAS 


25 Checks hexadecimal type 
1 — 1 subparameters. 


IEFSJCHX 

SJVEPRML, SUBPDATA, 
PARMLEN, PARMBUFR, SJVEREAS 


26 Checks referral type 
1 — 1 subparameters. 

/i-1\.- 

\i-./ iefsjcch 


SJVEPRML, SUBPDATA, 
PARMLEN, PARMBUFR, SJVEREAS 


SJCNW 

INVALID_TYPE_CHECi 
KING ABNDSJF | 

XEFSJVEP 

Igproifi 


For an invalid data type 
issues ABEND 054 reason 8 
ABENDtABNDSJF) SYSTEM 
REASON!INVALXD_TYPE CHECKING 
) 


28 Returns to the subroutine 
— 1 caller. 



KIEFSJVEP 


\SJCNW 

IchkpaxfpI 
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XEFSJVER - Scheduler JCL Facility (SJF1 Verify Routine 


STEP 29 


SJCNW 


SJRCIVTP 


- 1 \ 

29 > 

-,/ 

BLDTXUNT 



SJVETUBL 


XEFSJVEP 


SJRCIVTL 



SJVETUBL 


XEFSJVEP 


SJRCIVTL 


SJRCIVTL PARMLEN 


SJCNW 


XEFSJVEP 


TEXTUNUM 


SJCNW 


TEXTULEN TXTUSIZE 
CTUSVPTR 




SJRCIVTL 


29 Builds a text unit 
I— 1 containing the subparameter 
information or adds on to an 
existing text unit and adds 
a pointer to the text unit 
pointer list. 


30 Initializes the pointers 
1 — 1 used to build the text unit 
and text unit pointer list 
for the first invocation. 


Initializes the pointers 
used to build the text unit 
and text unit pointer list 
after receiving a new area 
of storage. 


Xf this is the first 
subparameter for an operand 
or a subparameter with a key 
different from the previous 
subparameter» does the 
following: 


Call routine to remove null 
text units 


REMOVE_NULL_TEXTUNIT: 56 


A. Calculates the amount of storage 
required for this text unit. 


B. Builds a new text unit containing the 
subparameter information. 


Inserts a pointer to the current text 
unit in the text unit pointer list by 
either replacing a duplicate text unit 
pointer or zero text unit pointer* or 
adding to the end of the pointer list. 


Xf this subparameter has the 
same key as the previous 
subparameter^ does the 
following: 


A. Calculates the amount of storage 
required to add on to the text unit. 


J \SJCNW 
1 IbldtxefpI 
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XEFSJVER - Scheduler JCL Facility (SJF) Verify Routine 


STEP 34B 


XEFSJVEP 


B. Adds on to the existing text unit. 


KSJEXP 


TEXTULEN 


SJCNM 


37 > 
L--1/ 

PRCMS6TX 



35 Returns to the subroutine 
— 1 caller. 


If the last text unit was 
null then it is invalid and 
must be removed 


\j A. If previous text unit has no parameter 
values> eliminates the null text unit 
from the text unit buffer. 


Generates the operand 
description and message text 
information. 


38 Builds the message text for 
1 — 1 an i nvalid parameter length. 

\i- ,/ BLDIVLENs 54 



XEFSJVEP 


SJRCIVCH 


-> 39 Builds the message text for 
1 — 1 an invalid choice. 

/i-1\.- 

\l-,/ BLDIVCHO: 58 


40 Builds the message text for 
1 — 1 an invalid integer value. 

/i-1\.- 

\i-./ BLDINVAL: 60 
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XEFSJVER - Scheduler JCL Facility l SJF) Verify Routine 


STEP 41 


411 Builds the message text for 
■— 1 no p arameter specified. 

\.-,/| BLDNOPRM: 46 


421 Builds the message text for 
1 — 1 invalid specification of 
level. 


BLDIVLEV 


43 Builds the message text for 
1 — 1 invalid first character of 
level. 


BLDIVCHS: 66 


ISJEXPFL4, SJEXPFSN, SJEXPFSAI 


44 Builds the message text for 
1 — 1 invalid character other than 
the first in level. 

\i- 1 /\ BLDIVCHS: 66 


ISJEXPFL5, SJEXPOSN, SJEXPOSAI 


45 Builds the message text for 
L —- J an invalid hexadecimal 
char acte r. 

\|-1/| BLDIVHEX 


IEFSJVEP 


ISJRCINUM 


-> 1461 Builds the message text for 
•— 1 an invalid numeric 
character. 

/i—Ki- 

\i-1/ BLDIVNUM 


SJCNU 



471 Returns to the subroutine 
1 — 1 caller. 



\SJCNW 

IsJVEMSG 


\TEXTUNIT 

IprcmsgtxI 
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IEPSJVER - Scheduler JCL Facility (SJF) Verify Routine 


STEP 48 


48 


BLDNOPRM 


SJCNW 


INVALIDJTYPEJ1ESS 


AGES 


ABNDSJF 


n 


XEFSJVEP 


GPR01F 

_ r 


j\ 

v 


48 


Builds the message text with 
the correct parameter 
values. 


1491 Builds the message text for 
an invalid character. 

/i—1\.- 


50 


51 


52 


53 


BLDIVCHS: 66 


SJEXPFL4, SJEXPFSN, SJEXPFSA 


Builds the message text for 
an invalid referral. 

/'—'\,- 


BLDIVLEV 


Builds the message text for 
an invalid hex character* 


BLDIVHEX 


Builds the message text for 
an invalid numeric 
character. 

/1..... i \. ■ — 


BLDIVNUM 


Returns to the subroutine 
caller. 




\ / 


J \SJEXP 
Vi 


BLDNOEFP 


-MEFSJVEP 

V 


GPR01F 


-KTEXTUNIT 

BLDNOPRM 
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IEFSJVER - Scheduler JCL Facility (SJF) Verify Routine 


STEP 54 


54 > 54 Generates the message text 

- 1 / —-* with the correct parameter 

bldivlen I length value. 


55 Translates the minimum 
1 — 1 length into EBCDIC and moves 
it into the message buffer. 


CHRTRNMV 


INPTBUFR 


SJCNW 



56 Translates the maximum 
— 1 length into EBCDIC and moves 
it into the message buffer. 




ZEFSJVEP 


SJMSCOM SJEXOCHA 
SJEXPCHA SCHINDEX 
OCHINDEX 


SJCNW 


OCHINDEX 


SJCNW 


CHRTRNMV 


INPTBUFR 


57 Returns to the subroutine 
1 — 1 caller. 



Generates the message text 
with the correct choice 
values. 


59 Returns to the subroutine 
— 1 caller. 


\SJCNW 


SJVEMSG 


\SJCNW 


SJVEMSG 


\TEXTUNIT 



1 

BLDIBEFP 

BLDIBXFP 

CHCLEN 

IS 

\SJCNW 


SJVEMSG 

OCHINDEX 


\TEXTUNIT 
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XEFSJVER - Scheduler JCL Facility (SJF) Verify Routine 


STEP 60 


60 


SJCNW 


BLANK 


BLDINVAL 

-K 

-1/ 


SJCNW 


BLANK 


r 1 


V 


60 


Generates the message text 
with the correct integer or 
hex range. 


61 


62 


63 


64 


65 


For integer data: Translates 
the low range into EBCDIC 
and moves it into the 
message buffer. 

/ l —' x |- 

\i-./ CHRTRNMV 


-KSJEXP 
[bldivefp 


KSJCNW 

l/l- 


SJVEMSG 


INPTBUFR 


Tranaslates the low range 
into EBCDIC hexadecimal and 
moves it into the message 
buffer 


BIN TO PRT HEX 


INPTBUFR 


For integer data: Translates 
the high range into EBCDIC 
and moves it into the 
message buffer. 

/i-1\.- 


-KSJCNW 
Vf 


SJVEMSG 


CHRTRNMV 


INPTBUFR 


Tranaslates the low range 
into EBCDIC hexadecimal and 
moves it into the message 
buffer 

/■-'\i 


BIN_TO_PRT_HEX 


INPTBUFR 


Returns to the subroutine 
caller. 


n l 


\ / 


-J\SJCNW 

- 


BLDIVXFP 


■J\TEXTUNIT 
BLDINVAL 
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ZEF8JVER - Scheduler JCL Facility (SJF1 Verify Routine STEP 66 
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IEFSJWRT - NODULE DESCRIPTION 


DESCRIPTIVE NANE: Scheduler JCL Facility CSJF) Write 

SWB Routine 

FUNCTION: 

This module locates a specific SHB and 
updates its data portion. 

ENTRY POINT: IEFSJWRT 

PURPOSE: See Function 
LINCAGE: CALL 
CALLERS: 

Scheduler JCL Facility control routine (IEFSJCNL) 

Scheduler JCL Facility update routine (IEFSJUPD) 

INPUT: 

SJF Write SWB parameter list, IEFSJWRP: 


FIELD LENGTH/MASK 

DESCRIPTION 

SJWRP 


Parameter list 

SJWRID 

4 

Identifier 'SJWR* 

SJWRVERS 

1 

Version number 

SJWRFLAG 

1 

Control flags 

SJWRNREC 

X^O' 

No recovery 

SJWRNOCU 

x’40 1 

No clean up 

SJWRLEN 

2 

Length of parameter list 

SJWRSTOR 

4 

Local storage pointer 

SJWRREAS 

4 

Reason code (returned) 

SJWRTOKN 

8 

SWB token 

SJWRANBK 

4 

Address of the anchor 
control block or of the 
first control block for a 

JCL statement 

SJWRANCA 

4 

Address of a word pointing to 
the SWB chain or zero 

SJWRSWBI 


Data to identify SWB 

SJWROWNM 

8 

Owner name 

SJWRBKID 

2 

Block ID 

SJWRRSV1 

2 

Reserved 

SJWRCHNI 


Data to identify SWB chain 

SJWRVERB 

8 

Verb 

SJWRLABL 

8 

Label 

SJWRFUNC 

1 

Flag byte 

SJWRNCHN 

x’BO* 

A new SWB chain is to 
be built 

SJWRNSWA 

x'40 1 

Request is for a non-SNA SWB 

SJWRDYNS 

x'20* 

Request is for a dynamic SWB 
chain 

SJWRRSV2 

Z 

Reserved 

SJWRSTMT 

4 

JCL statement number 

SJWRBYTE 

2 

Byte offset for data portion 
update 

SJWRDLEN 

2 

Length of data to be stored 

SJWRDATA 

4 

Address of data to be stored 

SJWRALT 

4 

Address of Alternate SWA 
Manager routine 


The input to this module also includes the SJF 
control workarea (IEFSJCNH). 


OUTPUT: 

SJF Write SWB parameter list, IEFSJWRP: 
SJWRREAS = reason code 
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IEFSJWRT - MODULE DESCRIPTION (Continued) 


EXIT NORMALS Return to caller 
EXIT ERROR: Return to caller 
ENTRY POINT: WRTRETRY 
PURPOSE: 

Performs clean up processing when an 
ABEND occurs during SJF Write processing, 

LINKAGE: SYNCH 


CALLERS: RTM 

INPUT: ESTAE parameter list 
OUTPUT: None 


EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 


ROUTINES: (IEFSJBLD) Scheduler JCL Facility (SJF) Build SMB 


DATA AREAS: 

IEFSJCNW - SJF Control Workarea 
IEFSJRC - SJF Reason Codes 
IEFSJSWP - IEFSJSWA Parameter List 
IEFSJNRP - SJF Write SWB Parameter 
IEFSJBLP - SJF Build SWB Parameter 
IEFZB502 - SWA Prefix 
IEFZB505 - External Parameter Area 


List 

List 

Extended 


CONTROL BLOCKS: 

CVT - Communication Vector Table 

JCT - Job Control Table 

JCTX - Job Control Table Extension 

JESCT - JES Communication Table 

PSA - Prefix Save Area 

SCT - Step Control Table 

SIOT - Step Input Output Table 

SWB - Scheduler Work Block 

SERIALIZATION: 

Holds the local lock during branch entry 
FREEMAIN of a non SWA SWB. 
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XEFSUWRT - MODULE OPERATION 


This module receives control to store data into 
a SMB. It performs the following functions: 

1. Checks if a verb (SJWRVERB) is specified 
in the input parameter list. If if is not* 
sets register 15 to 4* sets a reason code of 
SJRCIVRB 1508) in SJMRREAS, and returns. 

2. Validates the SMB structure address: 

- Calls IEFSJSMA to determine validity of the 
token and to gain addressability to the SMB 
chain. 

3. Verifies that the length of the data to be stored 
in the SMB data portion will not exceed the length 
of the SMB. If it will* sets register 15 to 4* 
sets a reason code of SJRCIVDT (800) in SJMRREAS* 
and returns. 

4. If the SMB structure address is zero* builds 
the parameter list (IEFSJBLP) and invokes 

the Scheduler JCL Facility (SJF) build routine to 
build a new SMB. 

5. If the SMB structure address is not zero* 
locates the specified SMB chain 

(with the matching verb (SJMRVERB) and label 
(SJMRLABL))• If the SMB chain is located* 
checks if this is an explicit build new SMB chain 
request. If it is and the label is non zero 
then a SMB chain already exists with the 
specified verb and label. The module then 
sets register 15 to 4* sets a reason code of 
SJRCDUPV (801) in SJMRREAS and returns to caller. 

If this is not an explicit build new SMB chain 
request* finds the specified SMB (with the matching 
owner name (SJMROMNM) and Block ID (SJMRBKID)) 
on the located SMB chain. 

If the SMB is not found* builds the parameter 
list* IEFSJBLP* and invokes the Scheduler JCL 
Facility Build routine to build a new SMB. 

6. If there is parameter data to be stored (its 
length (SJMRDLEN) is not zero)* moves the data 
into the SMB data portion and sets the 
corresponding validity bits in the SMB prefix. 

7. Returns to the caller, 

RECOVERY OPERATION: 

If an abend occurs in this module* the scheduler JCL 
facility control routine's recovery will receive 
control from RTM. The recovery routine specifies 
the retry address in the SJF workarea 
(NRTRETRY) to RTM. Mhen the retry segment (MRTRETRY) 
receives control from RTM* it does the following: 

1. If a SMB has been built but not anchored to the 
SMB chain* then: 

- If the SMB is a SMA SMB, calls SMA 
Manager to free the SMB. 

- If the SMB is a non-SMA SMB* issues 
a FREEMAIN for the SMB. 

2. Sets the return code to indicate an SJF system 
error. 
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ZEFSJWRT - MODULE OPERATION 

3. Returns to the caller. 


(Continued1 
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IEFSJWRT - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFSJWRT 
WRTRETRY 


MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFSJHRT: 

EXIT NORMAL: 

Register 15 = 0 - Processing successful 

Reason codes in SJWRREAS: 

SJRCNOER CO) - Processing successful 

EXIT ERROR: 

Register 15 = 4 - Request cannot be processed 

Reason codes in SJHRREAS: 

SJRCIVRB (508) - Invalid Verb 
SJRCIVTK (2) - Invalid SWB token 

SJRCIVDT (800) - Invalid SWB data 
SJRCDUPV (801) - SHE chain already exists for 
specified verb and label 

See SJF Build SWB for additional reason codes. 

ENTRY POINT WRTRETRY: 

EXIT NORMAL: 

Register 15 = 20 - SJF system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFSJHRT: 

Register 0 = Undefined 

Register 1 = Address of a two word parameter list. 

The first word contains the address 
of the Write SWB parameter list 
(IEFSJWRP) and the second word 
contains the address of the SJF 
control workarea (IEFSJCNH) 

Registers 2-12 = Undefined 

Register 13 = Address of an 18 word savearea 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT WRTRETRY: 

Register 1 - Address of ESTAE parameter list 

Registers 0>2-14 = Undefined 

Register 15 = Entry point address 
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IEFSJWRT - DIAGNOSTIC AIDS 

REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFSJWRT: 


Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT NRTRETRY: 


Registers 0-14 = Restored 
Register 15 = Return code 


(Continued) 
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